print MAINLOG "Time: $shortdate<br />\n";
   print MAINLOG "User: $ENV{'REMOTE_IDENT'}<br />\n";
   print MAINLOG "Host: $ENV{'REMOTE_HOST'}<br />\n";
   print MAINLOG "Addr: $ENV{'REMOTE_ADDR'}<br />\n";
   print MAINLOG "With: $ENV{'HTTP_USER_AGENT'}<br />\n";
   print MAINLOG "Page: $ENV{'DOCUMENT_URI'}<br />\n";
   print MAINLOG "From: $ENV{'HTTP_REFERER'}<br />\n";

##</code><code>##

    perl -c scriptname.pl