#!/usr/local/bin/perl                                          
                                                               
open (LOGS, ">> /content/www/esl/cgsp/projects/vw/log/vwlog") ||      
   die("could not append to log file\n");                      
$now = localtime (time);
print LOGS $now, "\n";
print LOGS "RH: ", $ENV{'REMOTE_HOST'}, "\n";    
#print LOGS "RU: ", $ENV{'REMOTE_USER'}, "\n";    
print LOGS "RF: ", $ENV{'HTTP_REFERER'}, "\n";   
print LOGS "UA: ", $ENV{'HTTP_USER_AGENT'}, "\n";
close (LOGS);                                                  
                                                               
print "location: /esl/cgsp/projects/vw\n\n";