-----------------
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;
-----------------