Parallel::ForkManager example

gistfile1.pl

use v5.16;
use warnings;
use autodie qw( :all );
use utf8::all;

use Parallel::ForkManager;

my $process_count = 12;

sub run_list {
    my $pm      = shift;
    my $log     = shift;
    my $entries = shift;

    foreach my $b ( @{$entries} ) {
        print {$log} " processing: $b\n";

        my $pid = $pm->start and next;

        #...

        $pm->finish;
    }
    return;
}

...

my $pm = Parallel::ForkManager->new($process_count);
run_list($pm, $log, \@entires);