#!/usr/bin/perl $file = "./count.txt"; open(FILE,$file); $count = ; close(FILE); ++$count; print "Content-type: text/html\n\n"; print "\n"; print "
\n"; print "\n"; print "$query $count\n"; print "\n"; print "
\n"; print "\n"; flock(FILE,LOCK_EX); open(FILE,">$file"); print FILE $count; close(FILE); flock(FILE,LOCK_UN);