** Start of listing of h2-perl.cgi **
#!/usr/bin/perl
print "Content-type: text/plain\n\n";

$qs = $ENV{'QUERY_STRING'};
print "The query string is $qs currently.\n\n";

if (index($qs, "date") < 0) {
    print "You didn't mention 'date' this time.\n";
} else {
    $currdate = localtime;
    print "The date&time is $currdate in California currently.\n";
}
print "\n";

if (index($qs, "IP") >= 0) {
    print "The IP number $ENV{'REMOTE_ADDR'} is where your client/browser is located.\n";
} elsif (index($qs, "ip") >= 0) {
    print "No, 'IP' must be upper case here!\n";
} else {
    print "You didn't mention 'IP' this time.\n";
}
print "\n";

if (index($qs, "name") < 0) {
    print "You didn't mention 'name' this time.\n";
} else {
    print "My name is Robert Elton Maas\n";
}
** End of listing of h2-perl.cgi **

Here is the directory entry for that file:
-rwx------  1 rem  user  745 Jul 16  2005 h2-perl.cgi
   ^ Note user execute permission needed for all CGI scripts.