#!/usr/bin/perl -w
use strict;
use warnings 'all';
use Win32::AdminMisc;

my $server = ''; # Use local machine.

my %groups;
Win32::AdminMisc::GetGroups($server, GROUP_TYPE_ALL, \%groups)
  or warn "Failed: $!, $^E";

foreach my $group (keys %groups) {
  printf "%s\t%s\n", $groups{$group}{type}, $group;
}

# Uncomment next two lines to see all data from %group hash.
#use Data::Dumper;
#print Dumper \%group;