Select Code to Download

use Parallel::ForkManager;
use IPC::Shareable;

...
        $pm->finish;
}
$pm->wait_all_children;

for(my $i = 0; $i < 100; $i++) {
        $pm->start and next;
        if($testvr >= 5) {
...
        $pm->finish;
}
$pm->wait_all_children;