Select Code to Download

if ( $) !~ /^$WANT_GID\b.*\b$WANT_GRP2\b/ ) {
    $) = "$WANT_GID $WANT_GRP2";
...
}
warn "After: RUID=$<, EUID=$>, RGID=$(, EGID=$), umask="
    .sprintf("%o",umask)."\n";

use warnings;
use strict;
...
    endgrent;
    return @sec_grps;
}