use IO::Scalar;
$tied_stdout = tie *STDOUT, 'IO::Scalar';
print 'this was printed into $tied_stdout';
print STDERR "And to prove it: ", $tied_stdout, "\n";
[download]

-sauoq
"My two cents aren't worth a dime.";