$ ls -l | perl -e 'while (<>) { print }' | wc -l
    821