my $fh;
LOCK:{
  open $fh,"+<",$file or
    open $fh,"+>",$file or last;
  flock($fh,LOCK_EX|LOCK_NB) or last;
}
$fh or die "$!";