use IO::Scalar;

tie *STDOUT, 'IO::Scalar', \my $out;
function_which_prints_to_stdout();
untie *STDOUT;

# the output is stored in $out
[download]

--
Tatsuhiko Miyagawa
miyagawa@cpan.org