$completeadd = "counter.txt";
open MFILE, '+<', $completeadd or die $!;
flock(MFILE, LOCK_EX) || die $!;
chomp($filedata=<MFILE>);
$filedata++;
seek MFILE, 0, 0;
print MFILE $filedata, $/ or die $!;
close MFILE or die $!;