foreach my $entry ($result->all_entries()) {
	foreach ($entry->attributes()) {
	    my (undef, $val) = $entry->get_value($_)
	    $r->{$entry->dn()}{$_} = $val
              ? [ $entry->get_value($_) ]
              : $entry->get_value($_);
	}
}