Please someone awake me, I'm living in a nightmare.

   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";
[download]

Anyway, you can ask "Is this correct" to perl itself:  use strict, use warnings, use diagnostics and compile your script:

    perl -c scriptname.pl
[download]