open PWD,"</etc/passwd" or die "Cannot open: $!";
while (<PWD>) {
   my ($name,$id) = (split /:/)[0,4];
   print "$name,$id\n";
}
close PWD;

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.