use IPC::Shareable;
use Data::Dump qw(ddx);
$| = 1;

my $id = 'my_special_name';
my %options = (create => 0, exclusive => 0, mode => 0644, destroy => 0);
my $my_var;
tie $my_var, 'IPC::Shareable', $id, { %options } or die "tie failed: $!\n";

for (0..3) {
	my $num = int(rand()*100);
	push @$my_var, $num;
	ddx [ @$my_var ];
	sleep 2;
}

push @$my_var, 999;
print "Leaving child.pl..\n";