#!c:\perl\bin\perl

use CGI;                             # load CGI routines
   
$baseurl = "d:\\davidd";
$logname= "$baseurl\\logs\\env.log";

print "Content-type: text/html\n\n";

open(LOG, ">>$logname");
foreach (sort(keys %ENV)) { print LOG "$_: $ENV{$_}<br>\n"; } 
if ($ENV{'CONTENT_LENGTH'}) 
{ print LOG "&lt;STDIN&gt;: ", <STDIN>, "<br>\n"; }
print LOG "****************************\n\n";
close(LOG);

exit(0);