#!/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";
}

##</code><code>##

#!/usr/bin/perl -w

use strict;
use LWP::Simple;

print "with no arguments: ";
print get('http://localhost/cgi-bin/foo.cgi'), "\n";

print "with arguments: ";
print get('http://localhost/cgi-bin/foo.cgi?foo=bar'), "\n";