print MAINLOG "Time: $shortdate <br />\n";