use v5.10.1;
use MCE::Child;
 
MCE::Child->init(
    max_workers => 50,
    posix_exit  => 1,
    on_finish   => sub {
        my ($pid, $exit_code, $ident, $exit_signal, $error, $resp) = @_;
        print "child $pid completed: $ident => ", $resp->[0], "\n";
    }
);
 
foreach my $data ( 1..2000 ) {
    MCE::Child->create( $data, sub {
        MCE::Child->yield(0.008);
        # sleep 1;  # simulate connection instantiation
        [ $data * 2 ];
    });
}
 
MCE::Child->wait_all;