perl -ae '1 while <>;print $.' users.dat