if ( $mesg->code ) {
   # Handle error codes here
	print ("There was a bind error\n");
	  }

$mesg = $ldap->search( # perform a search
                        base   => "ldap base here",
                        filter => "ldap filter here",
                        attrs => ['ldap attributes here']
                      );
 
$mesg->code && die $mesg->error;

foreach $entry ($mesg->entries) {
		$entry->dump;
		} 

$mesg = $ldap->unbind;   # take down session