recursive ldap del

sub delete_tree
{
    my ($handle,$dn) = @_;

    my ($result);
    $msg = $handle->search(base=>$dn,scope=>'one',filter=>"(objectclass=*)");
    if($msg->code())
    {
        report_error("couldn't find entry $dn?: " . $msg->error());
        return;
    }

    foreach $entry ($msg->all_entries)
    {
        delete_tree($handle,$entry->dn());
    }
    $result = $handle->delete($dn);
    warn($dn.": Error " .  $result->error()) if $result->code();
}