#!/usr/bin/perl -w

my($log, $counter);
$log="counter.txt";	#counter file.

open (FILE,$log);
$counter=<FILE>;
close(FILE);
$counter++;
open (WRITE,">$log");
print WRITE "$counter";
close(WRITE);
print "Content-type: text/html\n\n";
print "document.write($counter)";
exit;