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