Select Code to Download

my $csv = Text::CSV->new ({ binary => 1, auto_diag => 1, eol => $/ });
open my $fh, ">:encoding(utf8)", $filename or die "$filename: $!";
...
        $csv->print ($fh, $ref);
        }
    }