#!/usr/bin/perl -w
use strict;
use CGI;
my $q = CGI->new;
my $name = $q->param('name');
print $q->header(); # just ignore the man behind the curtain
print 'First page';
if (defined $name) {
print "Hello $name
";
} else {
print "Please enter your name
";
};
print '';