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

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

print $fh "Um... Yah\n";