Select Code to Download

use Text::CSV_XS;
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1 });
...
    # do something with @$row
    }
close $fh or die "file.csv: $!";