use strict;
use warnings;

use Perl;

my $p = Perl->new;
my $data = $p->eval(q{ do{
    use IO::Scalar;
    my $result;
    tie *STDOUT, 'IO::Scalar', \$result;

    print 'some stuff';

    $result;
} });

print "|||$data|||\n";