Select Code to Download

use strict;
use warnings;
...
or die "Cannot open moo for appending (2): $!\n";

print(flock($fh2, LOCK_EX | LOCK_NB) ? 1 :0, "\n");

1
0