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

package FileHandle;
use Carp;

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

$fh->lock();
[download]

Cool, thanks. This helped a lot. Just out of curiosity, why not unlock the filehandle? I am used to doing:

flock($fh,2);
...process stuff here...
$flock($fh,8);
[download]

Does Don't use unflock (flock 8). Ever. explain it sufficiently?

#!/usr/bin/perl

use FileHandle;
use Fcntl ':flock';

#   Create file handle and open file for writing
#
my $fh = new FileHandle;
if ($fh->open(">file")) {

    #   Obtain an exclusive lock on the file handle
    #
    flock ($fh, LOCK_EX);

    #   Write to file handle
    #
    print $fh "Just another Perl hacker\n";

    #   Remove exclusive lock on file handle and close file handle
    #
    flock ($fh, LOCK_UN);
    $fh->close;
}

exit 0;
[download]