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

##</code><code>##

package FileHandle;
use Carp;

sub lock {
  my $self = shift;
  flock($self, 8) or confess("Cannot lock file: $!");
}

##</code><code>##

$fh->lock();