my $ldap = Net::LDAP->new( "$ldap_svr" ) or die "$@";
	my $search = $ldap->bind;
	$search = $ldap->search( 
				base=> "$base",
				filter=>"mail=$name_email"
				);

	my $max = $search->count;
	
	for ( my $index = 0; $index < $max ; $index++ ) {
		my $entry = $search->entry($index);
		my $dn = $entry->dn;
		
		my @attrs = $entry->attributes;
		foreach my $var (@attrs) {
			my $attr = $entry->get_value( $var, asref => 1 );
			if ( defined($attr) ) {
				foreach my $value ( @$attr ) {
					print h2("$var: $value"),p;
				}
			}
		}
	}	
	$search= $ldap->unbind;