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");

       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