search ldap with perl

ldap_search.pl

#!/usr/bin/perl

use Net::LDAP;

$ldap_url = '';
$ldap_base_dn = '';
$ldap = Net::LDAP->new($ldap_url);

$mesg = $ldap->bind;

$mesg = $ldap->search( 
	base => $ldap_base_dn,
	filter => "cn=*"
);

$mesg->code && die $mesg->error;

foreach $entry($mesg->entries){ 
	foreach my $attr ( $entry->attributes ) {
	print join( "\n ", $attr, $entry->get_value( $attr ) ), "\n";
	}
}