$cfile="counter.txt";
open(COUNT,$cfile);
$count=<COUNT>;
$count++;
close(COUNT);
open(COUNT,">$cfile");
print COUNT $count;
close(COUNT);
print "content-type: text/html\n\n";
print $count;