#!/usr/bin/perl5.10.1 -w
use strict;
use File::NFSLock ();
use Fcntl qw( O_CREAT LOCK_EX LOCK_NB);
use lib '../lib/perl/';
 
my $datafile = shift;
my $inc      = shift || do {
  print "Usage: $0 <filename> <increment>\n";
  exit;
};
 
while ( $inc -- > 0 ) {
  my $lock = new File::NFSLock ($datafile, LOCK_NB);
  #my $lock = new File::NFSLock ($datafile, LOCK_EX);
 
        if ($lock)
        {
                print "true\n";
        }
        else
        {
                print "false\n";
        }
}