$entry = new Net::LDAP::Entry->new;
  $entry->dn($dn);
  $entry->update($ldap);

  $entry->add....