#!/usr/bin/perl
use Net::LDAP;

$ldap = new Net::LDAP('localhost') or die "$@";

$ldap->bind( dn       => 'uid=xxx,ou=org,o=xxx.com',
             password => 'secret'
           ) || die $@;

		   
my $dn = "uid=atype,ou=org,o=com";
my $description = "banana";

$msg = $ldap->modify ( $dn,
                       replace => { 'description' => $description }
                     ) || warn "Failed to modify entry. $!";

print "msg is $msg\n";

$ldap->unbind;