Capturing LDAP error message

I am trying to capture a better error description than I am getting with 
the following code:

use Net::LDAP::Util qw(ldap_error_name ldap_error_text ldap_error_desc);

$result = $ldap->add( $dn, attr => [ %$attrs ] );
if ( $result->code ) {
    $error = $result->code;
    $errtxt = ldap_error_name( $result->code );
    Log("      ERROR adding $dn: $errtxt");
    $errtxt = ldap_error_text( $result->code );
    Log("      ERROR adding $dn: $errtxt");
    $errtxt = ldap_error_desc( $result->code );
    Log("      ERROR adding $dn: $errtxt");
}

That gives me the following:

       ERROR adding mail=MILLENNIUMTENS,o=site: LDAP_INVALID_SYNTAX
       ERROR adding mail=MILLENNIUMTENS,o=site: Some part of the request 
contained an invalid syntax. It could be a search with an invalid filter 
or a request to modify the schema and the given schema has a bad syntax.
       ERROR adding mail=MILLENNIUMTENS,o=site: Invalid syntax

If I set $ldap->debug(12) then a ton of info is written to STDERR that 
contains the details I need (showing the value that caused the error).

Net::LDAP=HASH(0x2993f4) received:
0000 30   86: SEQUENCE {
0002 02    1:   INTEGER = 5
0005 69   81:   [APPLICATION 9] {
0007 0A    1:     ENUM = 21
000A 04    0:     STRING = ''
000C 04   74:     STRING = 'Bad SMTP Address; not canonical form, 
Attribute=mail, Value=MILLENNIUMTENS'
0058        :   }
0058        : }

Is there a way in NET::LDAP to grab that error string other than 
redirecting STDERR and parsing it?  "LDAP_INVALID_SYNTAX" is not 
particularly helpful in diagnosing why the syntax was invalid.

Thanks,
Rick