Select Code to Download

lock(*FH);

...
  my $fh = shift;
  flock($fh,LOCK_EX);
}

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