Select Code to Download

#!/usr/bin/perl

...

1;
__END__

#!/usr/bin/perl -w

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

#!/usr/bin/perl -w

...
    # do nothing
  }
};

Created FileLock obj for 'filelock.sem'.
Got shared lock on 'filelock.sem'.
...
  Reset timeout
Got exclusive lock on 'filelock.sem'.
Unlocked 'filelock.sem'.

Before 10 seconds:
Created FileLock obj for 'filelock.sem'.
...
Got shared lock on 'filelock.sem'.
  Doing flock
Could not get exclusive lock within 10 seconds.