-----------------
unless (Win32::Lanman::NetLocalGroupEnum('', \@arrayOfHashes))
    {
    my $error = Win32::FormatMessage Win32::Lanman::GetLastError;
    $error = Win32::Lanman::GetLastError if ($error eq "");
    throw Error::Simple($error);
    }
-----------------

##</code><code>##

-----------------
package getGroups;
use strict;
use Win32::Lanman;
sub getGroupsViaLanman {
  my $arrayRef = shift;
  if (Win32::Lanman::NetLocalGroupEnum('', $arrayRef)){
  print "Package Array: " . Dumper($arrayRef) . "\n"; 	
  return $arrayRef;
  }
  else {
    my $error = Win32::Lanman::GetLastError();
    print  "ERROR: failed to get groups via Win32::Lanman::NetLocalGroupsEnum  ---> " . Win32::FormatMessage Win32::Lanman::GetLastError() . "\n"; 
    exit;
  }
}
1;
-----------------

##</code><code>##

-----------------
#!perl 
use strict;
use getGroups;
my @results;
getGroups::getGroupsViaLanman(\@results);

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