#!/usr/bin/perl

# parent

use Data::Dumper;
use strict;
use warnings;

my $stored=`perl child.pl`;
my $data;
eval $stored;
warn Data::Dumper->Dump([\$data],[qw(*data)]);