$ perl -le 'print ref *STDOUT{IO}' IO::Handle