#! /usr/bin/perl

use Fcntl ':flock';
open(Z,"+<count.txt")||&neu;
flock(Z,LOCK_EX); $z=<Z>; $z++;
seek (Z,0,0); print Z "$z\n"; flock(Z,LOCK_UN); close(Z);
print "Status: 204 No Response\n\n";
exit(0);

sub neu {open(Z,">count.txt"); print Z "0\n"; close(Z); open(Z,"+<count.txt");}