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

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

print "Um... Yah\n";

##</code><code>##

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