open INFILE,'test.dat' or die "open: $!";
my $count = 0;
while (sysread(INFILE,$_,102400)) { $count += tr/\n//; }