$uid = $UIDS{$name} if exists $UIDS{$name};
print TMP join ':', $name, $passwd, $uid, $gid, $gcos, $dir, $shell;