Select Code to Download

use IPC::Shareable;
use Data::Dump qw(ddx);
...
};

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

use IPC::Shareable;
use Data::Dump qw(ddx);
...

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

# adult.pl:20: [0 .. 10, 16]
# child.pl:16: [0 .. 10, 16, 72]
...
# adult.pl:20: [0 .. 10, 16, 72, 52, 17, 66, 96, 92, 88, 56]
Leaving child.pl..
Leaving adult.pl..