perl -e "while(<>){};print $." somefile.txt