Select Code to Download

lhp@nereida:~/Lperl/src/perl_networking/ch2$ cat -n flock.pl
 1  #!/usr/bin/perl -w
...
54  close($f);
55  &parfor($np, \&task, $fn);
56  do {} while wait > 0;