use strict;
use warnings;
use MCE::Shared;
use Time::HiRes 'time';

my $number = MCE::Shared->scalar(0);

sub do_subroutine { $number->incr for 1..1e5; }

my @pids;
my $start = time;

for (1..10) {
    my $pid;
    unless ($pid = fork) {
        MCE::Shared->init;  # enables multi-channel
        do_subroutine ();
        exit;
    }
    push @pids, $pid if defined $pid;
}

waitpid $_, 0 for @pids;

printf "number  %d\n", $number->get;
printf "seconds %.03f\n", time - $start;

__END__

number  1000000
seconds 2.086