For this I'd use ADSI. I'm not sure if there's methods available via modules, but this will do the trick for you..

#!/usr/bin/perl -w

use strict;
use Win32::OLE qw(in);

my $server = "XXXXXX";
my $domain = Win32::OLE->GetObject("WinNT://$server");
$domain->{Filter} = ["group"];

foreach my $group (in($domain)) {
    print "$group->{Name}\n";
}
[download]

Of course, this only works from a Windows machine. I'd definately look at ADSI and what you can do with it. It's pretty handy.

Hope this helps..
Rich