env.cgi

#!/usr/local/bin/perl

print ("Content-type: text/html\n\n");
@ev= keys(%ENV);
print ("<html>\n<body><br><br><br><br>\n");
foreach $x(@ev){
    print ("$x : $ENV{$x}<br>\n");
}
print ("<br><br><br><br></body>\n</html>\n");
exit;