perl -e 'print "Content-Type = text/html\n\n";open(F, "counter.dat");while (<F>) {$c = $_};chomp $c;$c++;print "$c\n";close F;unlink "counter.dat";open(N, ">counter.dat");print N "$c";'