perl -aF: -lpe'$_=$F[0]' /etc/passwd
perl -le'print while $_=getpwent'