Taking a page out of tilly's big ol' book, you can perform some magic with IO::Scalar

use IO::Scalar;

tie *STDOUT, 'IO::Scalar', \my $output;
print "foo", "bar", "baz";
warn "got - [$output]\n";

__output__

got - [foobarbaz]
[download]

The above code was inspired by Re (tilly) 1: How to preserve the value of STDIN and bought to you by the sigil $.
HTH

_________
broquaint