#!/usr/bin/perl -w
# or #!C:\PROGRA~1\PERL\BIN\PERL.EXE -w


print "Content-type: text/html\nPragma: no-cache\n\n";

my $c=0;

if (open(F, "< c.txt")) {
    $c=<F>;
    close(F);
}

$c=1+$c;

print "$c\n";

open (F, "> c.txt");
print F "$c\n";
close (F);