Select Code to Download

use Text::CSV;
my $csv = Text::CSV->new ({
...
$csv->eol ("\n");
$csv->print ($out_fh, $_) for @rows;
close $out_fh or die "could not close $out_file: $!\n";