Select Code to Download

use strict;
use Win32::AdminMisc;
...
    #print out group RID
    print $group. " has RID " . $hash{USER_PRIMARY_GROUP_ID};
}