Simple fork job queue with AnyEvent fork_call

simple_fork_queue.pl

#!/usr/bin/env perl
use strict;

use AnyEvent;
use AnyEvent::Util;

my $cv = AnyEvent->condvar;

$AnyEvent::Util::MAX_FORKS = 5;

my $fork_jobs = 0;

for (my $i = 0; $i < 20; $i++) {

    $fork_jobs++;
    
    fork_call {
        # your job here
        return $$;
    } sub {
        ($a) = @_;
        print $a . "\n"; # your result output here
        $cv->send if $fork_jobs == 0;
    };

}

$cv->wait;