my $max_children = 5;
my $pm = Parallel::ForkManager->new($max_children);
for my $i (0..9) {
    $pm->start and next;
    #...
    $pm->finish;
}
$pm->wait_all_children;