perl -MTime::HiRes=time -E"BEGIN{$t=time()}" 
-nle"++$n }{ printf qq[$n records in %f seconds\n], time-$t" 250MB.CSV
4194304 records in 2.518000 seconds