use Net::LDAP;

my $ldap = Net::LDAP->new( ... );
my $mesg = $ldap->modify( ... );
if ( $mesg->is_error() ) {
    ...
}