script.cgi to HTML.

index -|- end

Generated: Tue Feb 2 17:54:55 2010 from script.cgi 2005/06/28 211.

#!/usr/bin/perl
open(INF,"PPcount.txt");
$count = <INF>;
close(INF);
$count = $count + 1;
open(OUTF,">PPcount.txt");
flock(OUTF,2);
seek(OUTF,0,0);
print OUTF "$count\n";
close(OUTF)
# End Script

index -|- top

checked by tidy  Valid HTML 4.01 Transitional