#!/bin/sh
perl -lne 'print+(split(/:/))[0]' /etc/passwd