perl -le '1 while <>; print $.' file