#!/usr/bin/perl -w
use Parallel::ForkManager;
my $pm = Parallel::ForkManager->new(5);
my @num = 1 .. 10;
my $ok=0;
for my $num (@num) {
	$pm->start and next;
	++$ok;
	print "$ok\n";
	$pm->finish;
}
$pm->wait_all_children;