http://www.perlmonks.org?node_id=877638


in reply to Re: setuid and setgid leaves user in 0 (wheel) group
in thread setuid and setgid leaves user in 0 (wheel) group

$) = "$gid $gid"
Cool, it works, thanks!