Select Code to Download

-----------------
unless (Win32::Lanman::NetLocalGroupEnum('', \@arrayOfHashes))
...
    throw Error::Simple($error);
    }
-----------------

-----------------
package getGroups;
...
}
1;
-----------------

-----------------
#!perl 
...
use Data::Dumper;
print "GROUPS: " . Dumper(@results) . "\n"; 
-----------------