open(PASSWD, '/etc/passwd/')
or die("Can't open the system password file: $!\n");

print((split(/:/))[0], "\n")
   while (<PASSWD>);

close(PASSWD);