#!/usr/bin/perl
$ENV{HTTP_HOST} = "http://www.perlmonks.org";
$ENV{SERVER_NAME} = "http://www.perlmonks.org";
$ENV{SCRIPT_URI} = "/cgi-bin/gg.cgi";
foreach $var_name ( sort keys %ENV ) {
print "<p><b>$var_name</b><br>";
print $ENV{$var_name};
}