Select Code to Download

use Fcntl ':flock';
flock(file,LOCK_EX);
seek file, 0, 0;

#!/usr/bin/perl -wT
use Fcntl qw(:flock);
my $file = 'test_lock.txt';
...
sleep 10;
print "Woken up...\n";
close S;