select(select(my $foo)); $foo = *$foo{IO}; print ref $foo