use strict; use CGI qw(param header); print header; my $foo = param('foo'); print "CGI Test\n"; print "$foo\n";