Have a look at Parallel::Iterator - Simple parallel execution, too.

The workers option sets the number of concurrent processes to launch.

my $max_forks = 42; 

my $options = { workers => $max_forks,  };

iterate(  $options , $worker, $iterator );
[download]