open(my $FILEHANDLE, ">", $filename)
    or die "Could not open file: $!"; 

print $FILEHANDLE "This goes to \$filename, as normal";

mysub( $FILEHANDLE );