perl -wnle "$i++;END{print $i}" in.fi