Select Code to Download

sub new
{
...
    $log->debug("Creating instance $class");
    return $self;
}

sub spawn {

...

    return $pty;
} # end sub spawn

my $pm = new Parallel::ForkManager(5);
for (1...10) {
...
    $pm->finish; # Terminates the child process
}
$pm->wait_all_children;