#!/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;