Help for this page

Select Code to Download

Select or download this

my $fh;
LOCK:{
...
  flock($fh,LOCK_EX|LOCK_NB) or last;
}
$fh or die "$!";