$ 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

##</code><code>##

      if (/\r/) {
         require Data::Dumper;
         local $Data::Dumper::Useqq = 1;
         local $Data::Dumper::Terse = 1;
         local $Data::Dumper::Indent = 0;
         die ("Carriage return in myfile.csv " . Data::Dumper::Dumper($_));
      }