or download this
print MAINLOG "Time: $shortdate<br />\n";
print MAINLOG "User: $ENV{'REMOTE_IDENT'}<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";