$ perl -e'print "foo,bar,baz\r\n";' > myfile.csv

$ perl -e'
   use strict;
   use warnings;
   use open IN => ":crlf";

   while (<>) {
     die ("Carriage return in $ARGV") if (/\r/);
   }

   open (INPUT, "myfile.csv") or die ("Can'\''t open myfile.csv");
   while (<INPUT>) {
     die("Carriage return in myfile.csv") if (/\r/);
   }

   print "ok\n";
' myfile.csv
ok