my $page = Net::LDAP::Control::Paged->new( size => 10000 );
my $ldap = Net::LDAP->new("ad.host:389") or die "$@";

$ldap->bind('cn=user,ou=serviceAccts,cn=sub,dc=company,dc=com', password=>'password');

my $mesg = $ldap->search(port=>389, 
                         scope=>'subtree', 
                         pagesize=>1000,
                         filter=>"(&(objectclass=userProxy)(memberOf=cn=My Group,ou=groups,cn=sub,dc=compnay,dc=com))",
                         control=>[ $page ],
                         base=>"CN=sub,DC=company,DC=com");