#!/usr/bin/perl

use strict;
use CGI;

my $cgi = new CGI;
print $cgi->header;

if (my $foo = $cgi->param('foo')) {
	print "foo = $foo";
}
else {
	print "nothing special";
}