Select Code to Download

sub LockFile
{
...
  }
  close ($fh) ;
}

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