Script to test file locking

test_lockfile.pl

#!/usr/bin/perl -w
use strict;
use diagnostics;
use Fcntl qw(:flock);

my $lockfile = '/home/.test.lock';

open my $lock_fh, ">$lockfile" or die "Can't open $lockfile: $!\n";

if (flock($lock_fh,LOCK_EX|LOCK_NB)){
        print "Locked file: $lockfile\n";
	print "Press Enter to finish.\n";
}else{
        close $lock_fh;
	print "Could not acquire lock for: $lockfile\n";
        exit 1;
}

<>;