[09:59:11] ~/test$ perl -E'use open IN => ":crlf"; say length <>' < crlf
2
[09:59:27] ~/test$ perl -E'use open IN => ":crlf"; say length <>' crlf  
1