How about something like this (it is much cleaner).

use POSIX qw(dup2);
use FileHandle ();

my $fh = FileHandle->new(">blarg");
dup2(STDOUT->fileno,$fh->fileno);

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

I think this will be much easier to follow.