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