well, i found this:

use Win32::DomainAdmin  # ???
$result = Win32::DomainAdmin::GetGroups($server,\%groups);
[download]

on google groups here but i didnt see the module on CPAN.

though here is a download link to the module.

give it a shot i guess... good luck