my ( $name, $passwd, $uid, $gid, $qutoa, $comment, $gcos, $dir, $shell, $expire ) = getpwent;