Printing the Name Input Using the CGI Module
#!/usr/bin/perl -T
use strict;
use CGI qw/:standard/;
print header,
start_html('Hello'),
start_form,
"Enter your name: ",textfield('name'),
submit,
end_form,
hr;
if (param()) {
print "Hello ",
param('name'),
p;
}
print end_html;
exit;
Related examples in the same category