Parallel ForkManager

gistfile1.txt

#!/usr/bin/perl

use Parallel::ForkManager;
use Data::Dumper;
$ENV{'foo'} = 'bar';

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

my $cnt = 10;
for ( 1 .. $cnt ) {
    $ENV{'bat'} = 'baz';
    $pm->start and next;
    &do_this;
    $pm->finish;
}
$pm->wait_all_children();

sub do_this {
    print 'PID: '.$$.' Foo: '.$ENV{'foo'}.' Bar: '.$ENV{'bat'}."\n";
}

1;