#!c:/perl/bin/perl.exe
$monkey = $ENV{'QUERY_STRING'}; $spaghetti = "pagecounts"; &f00bar;
sub f00bar { @days   = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'); @months = ('January','February','March','April','May','June','July','August','September','October','November','December'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec); $doodads = $ENV{'REMOTE_ADDR'}; $year += 1900; $mon += 1; $shortdate = "$mon/$mday, $time"; $fries = reverse($spaghetti); $shortdate =~ tr/[G]/[fhg]/;}chomp($shortdate); $fries = reverse $fries; open (CNT,">>$fries.txt"); print CNT "[$shortdate] - $doodads - $monkey\n"; close (CNT); print "Content-type: text/html\n"; print "Location: /track.gif\n\n";