Как получить Perl для возврата XML с использованием Net::LDAP::DSML

Question

Я пишу Perl-программу для чтения, записи, добавления, обновления и удаления записей на сервере LDAP. До сих пор я писал, добавлял, обновлял, удалял с использованием LDIF и читал, что возвращает записи в виде DSML.

Теперь на мой вопрос - возможно ли иметь запись, добавление, обновление, удаление возврата DSML? Примеры кода будут с благодарностью.

Мой поиск выглядит так, и это работает как шарм,

my $dsml = Net::LDAP::DSML->new(output => $oio, pretty_print => 1 )
  or die ("DSML object creation problem using an output file.\n");
$dsml->start_dsml();
$ldap->search(
    base => "applicationName=HSS_ESM,nodeName=jambala",
    scope => "sub",
    filter => $intext,
    attrs => ['*'],
    callback => sub {
        my ($mesg,$entry) =@_;
        $dsml->write_entry($entry)
        if (ref $entry eq 'Net::LDAP::Entry');
    }
);
$dsml->end_dsml();

Моя запись, добавление, обновление, удаление выглядит следующим образом, и я хотел бы, чтобы он возвращал DSML в случае успеха или ошибки,

# Create LDIF
my $ldif = Net::LDAP::LDIF->new($fh, "r", onerror => 'undef' );

# Loop over the entries in LDIF
while ( not $ldif->eof ( ) ) {
    my $entry = $ldif->read_entry( );
    if ( $ldif->error ( ) ) {
        # handle error
    } else {
        # do stuff
        my $res = $entry->update($ldap);
        if ($res->code != 0) {
            # handle error
        }
    }
}
$ldif->done ( );

Спасибо.