Select Code to Download

open(my $FILEHANDLE, ">", $filename)
    or die "Could not open file: $!"; 
...
print $FILEHANDLE "This goes to \$filename, as normal";

mysub( $FILEHANDLE );