Your syntax for getting the variables is a bit odd. Shouldn't you be using something like this?

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