NAME

MYDan::Util::FLock - flock

SYNOPSIS

            

              
              
use MYDan::Util::FLock;
my $lock = MYDan::Util::FLock->new( '/lock/file' );
die "Locked by other processes.\n" unless $lock->lock();
$lock->unlock();