use Fcntl;  # get LOCK_EX constant
open F, $file or error("Can't open $file $!\n");
flock(F, LOCK_EX) or error ("Can't get exclusive lock, file open and locked by other app $!\n");
close F;