use strict;
use warnings;

use MCE::Shared;

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

if ( ! defined ( my $pid = fork() ) ) {
   die "Cannot fork!: $!";
}
elsif ( $pid == 0 ) {
   # Child
   for ( 1 .. 10000 ) {
      $val = $cntr->incr;
   }
}
else {
   # Parent
   for ( 1 .. 10000 ) {
      $val = $cntr->incr;
   }

   waitpid( $pid, 0 );

   print "counter: ", $cntr->get, "\n";
}