22 lines
361 B
Perl
22 lines
361 B
Perl
#!/usr/local/bin/perl
|
|
|
|
use CGI qw/:standard/;
|
|
|
|
print header,
|
|
start_html('CGI Functions Example'),
|
|
h1('CGI Functions Example'),
|
|
start_form,
|
|
"Please enter your name: ",
|
|
textfield('text'),
|
|
p,
|
|
submit, reset,
|
|
end_form,
|
|
hr;
|
|
|
|
if (param()) {
|
|
|
|
print "Your name is: ", em(param('text')), hr;
|
|
|
|
}
|
|
|
|
print end_html; |