use CGI;

my $q = CGI->new();

print $q->header();
print "<B>Hello there ", $q->param('name'), "!</B>";