P::FMつかってみた

pfm.pl

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

my $pm = Parallel::ForkManager->new(4);

for my $i ( 1 .. 30 ) {
    my $sleep = int(rand(5)+3);
    my $pid = $pm->start and next;
    printf "PID:%s NUM:%s START sleep %s\n", $pid, $i, $sleep;
    sleep $sleep;
    printf "PID:%s NUM:%s END\n", $pid, $i;
    $pm->finish;
}
$pm->wait_all_children;

print "EXIT\n";