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($_));
      }