Select Code to Download

foreach $key (keys %UIDS) {
  if ($key eq $name) {
...
    print TMP $line;
  }
}

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