$ perl -e 'open FH,"users.dat";print scalar(map {1} <FH>)," users to date\n"'
653 users to date
$