Forking using Parallel::SubFork

use strict;
use warnings;

use Parallel::SubFork;
use Data::Dumper;

my $manager = Parallel::SubFork->new();

for(1..10) {
    $manager->start(\&cb, [$_]);
}

$manager->wait_for_all();

sub cb {
    my $args = shift;
    print "($$) has started with arguments:\n";
    print Dumper $args || "No args\n";
    for(1..$args->[0]*1000) {
        my $x = $_ + 123;
    }
}