use strict;
use warnings;
use Win32::NetAdmin;
my %UserList = ();
my $server_name = 'Server';
my $local_group_name = 'Administrators';

Win32::NetAdmin::LocalGroupGetMembersWithDomain($server_name, $local_group_name, \%UserList);

my @users = keys(%UserList);

foreach my $user (@users)
{
	print "User: $user\n";
}

##</code><code>##

Signal SEGV at C:/Perl64/lib/perl5db.pl line 7597 , <INFILE> line 23. DB::diesignal('SEGV')called at GetLocalAdmins.pl