use strict;
use warnings;
 
use MCE::Child 1.842;
use Time::HiRes 'time';
 
my $start = time;
 
MCE::Child->init(
    max_workers => 10,
    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 {
        [ $data * 2 ];
    });
}
 
MCE::Child->wait_all;
 
printf STDERR "duration: %0.03f seconds\n", time - $start;