#!/usr/bin/perl -w

# setup path to local modules
BEGIN
{
    use File::Basename;
    use Cwd;
    File::Basename::fileparse_set_fstype($^O);
    my $include = (File::Basename::fileparse($0))[1];
    $include = $include eq '' ? '.' : $include;
    $include = Cwd::abs_path($include);
    unshift @INC, $include;
}

use strict;
use FileLock;

my $file = "filelock.sem";
my $lock = FileLock->new($file);
print "Created FileLock obj for '$file'.\n";

# try a shared lock
$lock->shared_lock(10);
print "Got shared lock on '$file'.\n";

# try exclusive lock
$lock->exclusive_lock(10);
print "Got exclusive lock on '$file'.\n";

# try unlock
$lock->unlock();
print "Unlocked '$file'.\n";