>perl -e "open $fh, '-'; print *$fh{IO}
IO::Handle=IO(0x22532c)

>perl -e "print *STDOUT{IO}
IO::Handle=IO(0x225cfc)