#!/usr/bin/perl
use strict;
use warnings;

for my $file ( @ARGV ) {
    my ( $lf, $crlf ) = ( 0 ) x 2;
    open my $fh, '<', $file or die "open $file: $!\n";
    local $_ = " ";
    while ( read $fh, $_, 65536, 1 ) {
        $lf += @{ [ /(?<!\x0d)\x0a(?!\x0d)/g ] };
        $ctlf += @{ [ /\x0a\x0d/g, /\x0d\x0a/g ] };
        $_ = chop;
    }
    print "$file: $lf LF, $crlf CRLF\n";
}