Select Code to Download

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

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

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