Or yet another. This might be better than my first example because you don't have to open a file on some bad filehandle.

use POSIX qw(dup);
use FileHandle ();

my $fd = dup(STDOUT->fileno);
my $fh = FileHandle->new();
$fh->fdopen($fd,'w');

print "Um... Yah\n";
[download]

If you want it shorter...

my $fh - FileHandle->new();
$fh->fdopen(dup(fileno(STDOUT)),'w');
[download]

The first is more readable.