#!/perl/bin/perl.exe

open FILE, "visit.txt" or die "Screwed it up...Can't open for read...";
$counter = <FILE>;
close FILE;

$counter = $counter + 1;

open FILE, ">visit.txt" or die "Screwed it up...Can't open for write...";
print FILE $counter;
close FILE;

chomp ($counter);

print "Content-type: text/html\n\n ";
print "<br>$counter<br>";