entry = $AD_conn->nextEntry();

##</code><code>##

    while ($entry ) {

        # Create the new Directory entry
        #
        my $new_entry = new Mozilla::LDAP::Entry;
        # etc.

        $entry = $AD_conn->nextEntry();
    }    # End of while loop