#!/usr/bin/perl -w

use CGI;
my $q = CGI->new();
print $q->header();
print "<p>Hello, " . $q->param('name') . "!</p>\n";