Select Code to Download

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

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