Select Code to Download

#!/usr/bin/perl -w
use strict;
...
};

print "traceout is $trace_out";

#!/usr/bin/perl
use Fcntl ':flock';
open FH, "file.txt" ;
flock FH, LOCK_EX or die "couldn't lock";
while (true) {};

>./locker.pl &
[1] 17289
...
>strace -q -p17289
>strace -q -p17290
flock(3, LOCK_EX <unfinished ...>

./hang_finder 17290
traceout is

traceout is flock(3, LOCK_EX