use Safe::World;

my ($stdout, $stderr);

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

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

$world->close ;

print $stdout ;

##</code><code>##

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 ;