#!/usr/bin/perl
use strict;
use Parallel::ForkManager;
use IPC::ShareLite;
use Storable qw( freeze thaw );

my $fork_manager =  new Parallel::ForkManager(5);

my $share = new IPC::ShareLite( -key     => $$,
                                -create  => 'yes',
                                -destroy => 'yes' ) or die $!;

my $hash = {'PARENT' => $$};
$share->store( freeze( $hash ) );

foreach my $child ( 1 .. 10 ) {
    my $pid = $fork_manager->start($child) and next;
    $share->destroy( 0 );

    my $hash = thaw( $share->fetch );

    for my $id (1 .. 100) {
        my $key = $child . '-' . $id;
        $$hash{$key} = qq{|Kid $child pushed $id};
    }

    while (1) {
        if ($share->lock()) {
            last;
        }
        else {
            print "$$ cant lock share\n";
            sleep 1;
        }
    };
    $share->store( freeze( $hash ) );
    $share->unlock;

    $fork_manager->finish($child);
}
print "Waiting for Children...\n";
$fork_manager->wait_all_children;

my %final_parent_hash = %{ thaw( $share->fetch ) };
#foreach my $key ( sort{( (split /-/,$a)[0] <=> (split /-/,$b)[0] )
#                        ||
#                       ( (split /-/,$a)[1] <=> (split /-/,$b)[1] )
#                      } keys %final_parent_hash ) {
#    print "$key = $final_parent_hash{$key}\n";
#}
foreach my $child ( 1 .. 10 ) {
    for my $id (1 .. 50) {
        my $key = $child . '-' . $id;
        if (! exists $final_parent_hash{$key} ) {
            print "Missing data for Kid $child , data $id\n";
        }
    }
}
exit;
[download]