lock(*FH);

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