sub DropPriv {
  my($uid, $groups) = @_;
  $) = $groups;
  $> = $uid;
  # ...
}