#!/usr/bin/perl
print "Content-type:text/html\n\n";   
$filename = "counter.txt";
$filenamet = "tracker.txt";
open(file,"$filename");
&lockfile(file); @getrec = <file>; &unlockfile(file);
close(file);
($sec,$min,$hr,$day,$month,$year,$dofw,$dofy,$some) = localtime(time);  
$q = $ENV{'QUERY_STRING'};
if (!@getrec || $q eq "restart") {
  $cnt = 0;
  open(file,">$filenamet");
  &lockfile(file); print file $ENV{'REMOTE_ADDR'},",",$day+1,"\n";  &unlockfile(file);  
  close(file); 
} else {
  $cnt = $getrec[0] + 1;
}
open(file,">$filename");
&lockfile(file); print file $cnt; &unlockfile(file);  
close(file); 
print $cnt;
sub lockfile {
  local($file)=@_;
  flock($file,2);
}
sub unlockfile {
  local($file)=@_;
  flock($file,8);
}