sub DropPriv($uid,$groups) {
  $) = $groups;
  $> = $uid;

  if ($> != $uid) {
    print STDERR "demotion to $uid failed, EUID=$>.\n";
    return 0;
  }
  return 1;
}