open(my $fh, '<:crlf', $filename) or die ...