Select Code to Download

use File::NFSLock;
use Fcntl qw(LOCK_EX LOCK_NB);
...
}else{
    die "I couldn't lock the file [$File::NFSLock::errstr]";
}