#!/usr/bin/perl -w

use strict;
use IO::Scalar;

my $code = 'print "Hello, world!"';
my $buffer;

tie *STDOUT, 'IO::Scalar', \$buffer;
eval($code);
untie *STDOUT;
print "The captured STDOUT is: >>>$buffer<<<\n";