use strict;
use IO::String;

my $buffer = IO::String->new();
select $buffer;

print "hello world\n";
print "testing 1 2 3\n";

# then later ...
select STDOUT;
print  ${$buffer->string_ref};