35 lines
746 B
Perl
35 lines
746 B
Perl
|
<html>
|
||
|
|
<head>
|
||
|
|
<title>A Simple Form</title>
|
||
|
|
</head>
|
||
|
|
<body>
|
||
|
|
<h1>Please Enter Your Name</h1>
|
||
|
|
<form action="http://localhost/cgi-bin/form.pl">
|
||
|
|
First name: <input type="text" name="firstname">
|
||
|
|
<br>
|
||
|
|
Last name: <input type="text" name="lastname">
|
||
|
|
<br>
|
||
|
|
<input type="submit">
|
||
|
|
</form>
|
||
|
|
</body>
|
||
|
|
</html>
|
||
|
|
|
||
|
|
|
||
|
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use CGI ':standard';
|
||
|
|
|
||
|
|
my @params = param();
|
||
|
|
my $firstname = param('firstname') || 'you have no first name!';
|
||
|
|
my $lastname = param('lastname') || 'you have no last name!';
|
||
|
|
|
||
|
|
print
|
||
|
|
header(),
|
||
|
|
start_html(
|
||
|
|
-title => 'Welcome!',
|
||
|
|
-text => '#520063'
|
||
|
|
),
|
||
|
|
h1("Hello, $firstname $lastname!"),
|
||
|
|
end_html();
|