open my $foo, ">&=STDOUT"; $foo = *$foo{IO}; print ref $foo