#!/usr/local/bin/perl
sub PrintEnv
{
foreach $key ( sort keys %ENV )
{
print "$key = $ENV{$key}
\n";
}
}
print "Content-type: text/html\n\n";
print "CGI Environmental Variables\n";
print "CGI Environmental Variables
\n\n";
&PrintEnv;
print "
\n";
exit( 0 );