use strict;
use Net::LDAP;
my $ldap = Net::LDAP->new($ldaphost);

my $result = $ldap->search( base=>$groupdn,filter=>'(objectclass=*)',attrs=>['member']);

if ($result->code)
{
  print $result->error."\n";
  exit 1;
}

my $entry = $result->entry;
my @members = $entry->get('member');