in reply to printing passwd file

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