or download this
my $csv = Text::CSV->new( { binary => 1, auto_diag => 2, } )
or die "Cannot use CSV: " . Text::CSV->error_diag();
$csv->eol ("\x0d\x0a");
...
for my $csvFile (@ARGV) {
print "\nProcesing file $csvFile ...\n";
open my $csvfh, '<', $csvFile or die "Unable to open $csvFile: $!"
+;