Select Code to Download

my $pm = Parallel::ForkManager->new(2);

$SIG{CHLD} = sub{  Parallel::ForkManager::wait_children($pm) };

#!/usr/bin/env perl -w

...
$pm->wait_all_children;
print "Everybody is out of the pool!\n";