Simple ForkManager Worker Pool

Fork a fixed-size Parallel::ForkManager worker pool, start each job in a child process, and wait until every worker has finished.

Language: Perl

Added on: 18^th August 2026

Submitted by: Lupraxus

use Parallel::ForkManager;

my $max_threads   = 5;
my $total_threads = 25;

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

sub actually_do_something {
    my ($c) = @_;
    print "Thread number: $c\n";
    sleep 5;
}

for my $i (0 .. $total_threads) {
    my $pid = $pm->start and next;
    actually_do_something($i);
    $pm->finish;
}

$pm->wait_all_children;

Caveats

Needs Parallel::ForkManager.