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

# Setup shared array reference "my_var"
my $id = 'my_special_name';
my %options = (create => 'yes', exclusive => 0, mode => 0644, destroy => 'yes');
my $my_var;
tie $my_var, 'IPC::Shareable', $id, { %options } or die "tie failed: $!\n";
$my_var = [0..10];

system('./child.pl &');

until ($my_var->[-1] == 999) {
	my $num = int(rand()*100);
	push @$my_var, $num;
	ddx [ @$my_var ];
	sleep 2;
};

print "Leaving adult.pl..\n";