Select Code to Download

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