use Net::LDAP;
use Data::Dumper;
 $ldap = Net::LDAP->new ( "directory-01.xxxxxx.dom" ) or die "$@";



 $mesg = $ldap->bind ( "jhyland",           
                       password => "xxxxxx",
                       version => 3 );          # use for changes/edits
print Dumper($mesg);