Select Code to Download

my $pm = Parallel::ForkManager->new(50);  # 50 forks
my $i = 0;
...
  $pm->finish; # do the exit in the child process
}
$pm->wait_all_children();  # and then do nothing

# max 4 processes simultaneously
my $pm = Parallel::ForkManager->new(4);
...
  $pm->finish; # do the exit in the child process
}
$pm->wait_all_children();