Select Code to Download

sub lockfile {
my $file = pop();
...
}
unless ($locked == 1) { print "\n\nFlock error: could not lock $file";
+ exit; }
}