perl -e "print scalar <>;" filename.txt