0  use English;
 1  my @temp     = ($EUID, $EGID);
 2  my $orig_uid = $UID;
 3  my $orig_gid = $GID;
 4  $EUID = $UID;
 5  $EGID = $GID;
 6  # Drop privileges
 7  $UID  = $orig_uid;
 8  $GID  = $orig_gid;
 9  # Make sure privs are really gone
10  ($EUID, $EGID) = @temp;
11  die "Can't drop privileges"
12      unless $UID == $EUID  && $GID eq $EGID;