use POSIX qw(setgid);
$my_new_group_id = POSIX::setgid();