lock(*FH);

sub lock {
  my $fh = shift;
  flock($fh,LOCK_EX);
}

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------