#! /usr/bin/perl -w
use strict;
open FH, "< /etc/passwd" or die "unable to open passwd file: $!";
while ( <FH> ) {
    my ( $user ) = split /:/;
    print "$user\n";
}
close FH;