$passwd = "/etc/passwd";
open(PW,$passwd) or die "Can't open $passwd:$!\n";
while (<PW>){
        ($name,$passwd,$uid,$gid,$gcos,$dir,$shell) = split(/:/);
    print;
}
close(PW);