env.cgi

#!/usr/bin/perl
print "Content-type: text/html\n\n";

print "<html><head><title>Environment Variables</title></head><body>";

print "<p><table>";

foreach $env_var (keys %ENV)
{
    print "<tr><td><font color=red> $env_var</font> </td><td><font color=blue>$ENV{$env_var}</font></td></tr>";
}

print "<p><table>";

print "</body></html>";