use CGI qw(:standard);

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