Help for this page
perl -le 'BEGIN{$,=","} print map int rand 1000, 1..2500 for 1..547_18 +3' > infile.csv ... [sk]% time perl -nle '$line++; print +($line-1) if eof;' infile.csv 547183 19.600u 4.560s 0:24.16 100.0%
% head -10000 inputfile > smallfile % script smallfile