#!/usr/bin/perl -w

use strict;
use Fcntl ':flock'; # import LOCK_* constants

my $lockfile_path = "./lockfile";

open(LOCKFILE, ">$lockfile_path") or die "Can't open $lockfile_path: $!";
flock(LOCKFILE,LOCK_EX);
print "got lock @ARGV\n";
sleep(10);
print "finished sleeping @ARGV\n";
flock(LOCKFILE,LOCK_UN);