unless(Win32::Lanman::NetLocalGroupEnum("testserver", \@groups))
 {
        print 'Sorry, something went wrong in (Win32::Lanman::NetLocalGroupEnum) ; error: ';
        # get the error code
        print Win32::Lanman::GetLastError();
        exit 1;
 }

 foreach $group (@groups)
 {
        print "${$group}{'name'}\t${$group}{'comment'}\n";
 }