#!/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     => 1971,
                                -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 );
   
    while (1) {
        if ($share->lock()) {
            last;
        }
        else {
            print "$$ cant lock share\n";
            sleep 1;
        }
    };
    for my $id (1 .. 10) {
        my $key = $child . '-' . $id;
        $$hash{$key} = qq{|Kid $child pushed $id};
    }
    
    $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";
}
exit;

##</code><code>##

Waiting for Children...
PARENT = 3661
1-1 = |Kid 1 pushed 1
1-2 = |Kid 1 pushed 2
1-3 = |Kid 1 pushed 3
1-4 = |Kid 1 pushed 4
1-5 = |Kid 1 pushed 5
1-6 = |Kid 1 pushed 6
1-7 = |Kid 1 pushed 7
1-8 = |Kid 1 pushed 8
1-9 = |Kid 1 pushed 9
1-10 = |Kid 1 pushed 10
3-1 = |Kid 3 pushed 1
3-2 = |Kid 3 pushed 2
3-3 = |Kid 3 pushed 3
3-4 = |Kid 3 pushed 4
3-5 = |Kid 3 pushed 5
3-6 = |Kid 3 pushed 6
3-7 = |Kid 3 pushed 7
3-8 = |Kid 3 pushed 8
3-9 = |Kid 3 pushed 9
3-10 = |Kid 3 pushed 10
5-1 = |Kid 5 pushed 1
5-2 = |Kid 5 pushed 2
5-3 = |Kid 5 pushed 3
5-4 = |Kid 5 pushed 4
5-5 = |Kid 5 pushed 5
5-6 = |Kid 5 pushed 6
5-7 = |Kid 5 pushed 7
5-8 = |Kid 5 pushed 8
5-9 = |Kid 5 pushed 9
5-10 = |Kid 5 pushed 10
6-1 = |Kid 6 pushed 1
6-2 = |Kid 6 pushed 2
6-3 = |Kid 6 pushed 3
6-4 = |Kid 6 pushed 4
6-5 = |Kid 6 pushed 5
6-6 = |Kid 6 pushed 6
6-7 = |Kid 6 pushed 7
6-8 = |Kid 6 pushed 8
6-9 = |Kid 6 pushed 9
6-10 = |Kid 6 pushed 10
8-1 = |Kid 8 pushed 1
8-2 = |Kid 8 pushed 2
8-3 = |Kid 8 pushed 3
8-4 = |Kid 8 pushed 4
8-5 = |Kid 8 pushed 5
8-6 = |Kid 8 pushed 6
8-7 = |Kid 8 pushed 7
8-8 = |Kid 8 pushed 8
8-9 = |Kid 8 pushed 9
8-10 = |Kid 8 pushed 10
10-1 = |Kid 10 pushed 1
10-2 = |Kid 10 pushed 2
10-3 = |Kid 10 pushed 3
10-4 = |Kid 10 pushed 4
10-5 = |Kid 10 pushed 5
10-6 = |Kid 10 pushed 6
10-7 = |Kid 10 pushed 7
10-8 = |Kid 10 pushed 8
10-9 = |Kid 10 pushed 9
10-10 = |Kid 10 pushed 10