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