use Whatever;
open my($fh)...;
select $fh;
whatever('whatever');