File::BasicFlock - file locking with flock
use File::BasicFlock;
lock($filename);
lock($filename, 'shared');
lock($filename, undef, 'nonblocking');
lock($filename, 'shared', 'nonblocking');
unlock($filename);
Lock files using the flock() call. The file to be locked must
already exist. This is a very thing interface.
David Muir Sharnoff, <muir@idiom.com>