open my $FH, '>', \$output;
my $old_FH = select($FH);

print "Hello world\n";

select($old_FH);