use CGI;

my $q = CGI-new;

my $name = $q->param('name');
print $q->header, $q->start_html, $q->h1('Test Page');
print $q->p("The name is $name");
print $q->end_html;