open(PASSWD, '/etc/passwd');
   while (<PASSWD>) {
   chomp;
   ($login, $passwd, $uid, $gid,$gcos, $home, $shell) = split(/:/);
    #...
   }