#!/usr/bin/perl
print "Content-type:text/html\n\n";   
$filenamet = "tracker.txt";
open(myfile,"$filenamet");
@getrec = <myfile>;
close(myfilet);
$cnt = @getrec;
$q = $ENV{'QUERY_STRING'};
if (!$getrec[0] or $q eq "restart") {
  open(myfile,">$filenamet");
} else {
  open(myfile,">>$filenamet");
}
@t = localtime(time);  
print myfile $ENV{'REMOTE_ADDR'},",",$t[3]+1,"\n";
close(myfile);
print $cnt;