sub high_id {
  my $ldap = shift;
  my $uids = $ldap->search( ... ) or return;
  return unless $uids->count;
  my @uids = sort { $a <=> $b } map { $uid->get_value('uidNumber') } $uids->all_entries;
  return $uids[-1] + 1;
}