Select Code to Download

flock($fh, $mode) or die "Cannot flock file in $mode: $!";

package FileHandle;
use Carp;
...
  my $self = shift;
  flock($self, 8) or confess("Cannot lock file: $!");
}

$fh->lock();