{ package FileHandle; use overload q[""]=>sub {"string me!"} }
select(select(my $foo)); $foo = *$foo{IO}; print "$foo";