perl -le 'open FILE, "/etc/passwd"; @_=; print $.'