Select Code to Download

#!/usr/bin/perl -w
#testlock.pl
...
}
$fork->wait_all_children;
close $out;

#!/usr/bin/perl -w
#test.pl
...
    $fork->finish;
}
$fork->wait_all_children;