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/);
}