#!/usr/local/bin/perl
while (@passwd = getpwent) {
	print "$passwd[0]\n";
}