perl -e 'open(IN,"<", $ARGV[0]);$i=0;while(<IN>){$i++};print $i' in.file