#!/usr/bin/perl

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