package Whatever;
sub whatever {
   my $filehandle = select;
   print $filehandle ...;
}