sysopen(FH, "numfile", O_RDWR|O_CREAT)
                           or die "can't open numfile: $!";
flock(FH, LOCK_EX)         or die "can't write-lock numfile: $!";
$num = <FH> || 0;