use Win32::AD::User;
$connect = Win32::AD::User->new("WinNT://ad.domain/admin-user,user","user-name");
$connect->get_info();
@groups = $connect->get_groups();
print join("\n\t", @groups);