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