Select Code to Download

AddType text/html .shtml
AddHandler server-parsed .shtml

use Fcntl qw(:DEFAULT :flock);

sysopen(FH, "numfile", O_RDWR | O_CREAT) or die "can't open numfile: $
+!";
...

truncate(FH, tell(FH)) or die "can't truncate numfile: $!";
close(FH) or die "can't close numfile: $!";