package Whatever;
sub whatever {
   my $filehandle = select;
   print $filehandle ...;
}
##</code><code>##

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