use Safe::World;

my ($stdout, $stderr);

my $world = Safe::World->new(
    stdout => \$stdout,
    stderr => \$stderr,
    flush  => 1 ,
);

$world->eval('print 12 ** 2, "\n";');

print $stdout ;