Help for this page
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;