use strict;
use Net::LDAP;

my $ldap = Net::LDAP->new('hostname') or die "$@";
   $ldap->bind( "cn=Directory Manager", password => "..."); 

my $root = $ldap->root_dse();
   $root->dump;