use Fcntl;
open FILE, $file, O_EXLOCK 
or die "Cannot open or lock $file. $!\n";