$completeadd = "sacrifice.txt";
open(SAC, "$completeadd") || die "sacrificial file open failed: $!\n";
flock(SAC, LOCK_EX) || die "sacrificial Lock failed: $!";

$completeadd = "counter.txt";
open(MFILE, "$completeadd") || die "file open failed: $!\n";
flock(MFILE, LOCK_EX) || die "Lock failed: $!";
@filedata1=<MFILE>;
chomp @filedata1;
close(MFILE);
if ($filedata1[0])
{
  $filedata1[0]=$filedata1[0] + 1;
}
else
{
  $filedata1[0] = 1;
}
open(MFILE, ">$completeadd") || die "file open failed: $!\n";
flock(MFILE, LOCK_EX) || die "Lock failed: $!";
print MFILE "$filedata1[0]";
close(MFILE);

close(SAC);