use CGI qw(:standard);

##</code><code>##

use CGI qw(:standard);

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

##</code><code>##

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;