Help for this page
use POSIX qw(dup); use FileHandle (); ... $fh->fdopen($fd,'w'); print "Um... Yah\n";
my $fh - FileHandle->new(); $fh->fdopen(dup(fileno(STDOUT)),'w');