perl -lne 'print ((split /:/)[0])' /etc/passwd