local ($lockFH, $lockPath, $lockMode) = LockFile ("test.txt", 2);
# Wait 10 seconds before calling UnlockFile
UnlockFile ($lockFH, $lockPath, $lockMode);