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

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

print "Um... Yah\n";