use Fcntl ':flock';
flock(file,LOCK_EX);
seek file, 0, 0;