Take a look at Win32API::Net. You have UserGetGroups for globals and UserGetLocalGroups for locals.

Using your code from your previous post:

use strict 'vars';
use warnings;
use Win32API::Net;
use Win32::NetAdmin;
my $name = Win32::LoginName();
my $domain = Win32::DomainName();
my $pdc;
my @GlobalGroups;
Win32::NetAdmin::GetDomainController('',$domain,$pdc);
print "Name: $name,\tDomain: $domain,\tPDC: $pdc\n";
Win32API::Net::UserGetGroups($pdc,$name,\@GlobalGroups);

foreach ( @GlobalGroups ) {
    print "Found: $_\n";
}
[download]

This will list out the the id's global group memberships from the domain controller.