#!/usr/bin/perl

# http://perlmonks.org/?node_id=1168787

use strict;
use warnings;
use Parallel::ForkManager;

my $pm = Parallel::ForkManager->new(5);
my @num = 1 .. 10;
my $ok=0;
for my $num (@num) {
    ++$ok;
    $pm->start and next;
    print "$ok\n";
    $pm->finish;
}
$pm->wait_all_children;
[download]