Select Code to Download

#!/usr/bin/perl

# parent
...
my $data;
eval $stored;
warn Data::Dumper->Dump([\$data],[qw(*data)]);

#!/usr/bin/perl

# child
...
my $data={aref=>[qw(a b c d)],href=>{}};

print Data::Dumper->Dump([\$data],[qw(*data)]);