or download this
my $ldap_session=Net::LDAP->new($ldaphost) or die "error connecting to
+ LDAP $ldaphost: $@\n";
my $mesg=$ldap_session->bind($ldapuser, password=>$ldappassword) or di
+e "error binding: $@\n";
...
foreach(@attributes){
$data->{values}=$data->{values}.'<br>'.$_.'='.$tempuser->get_valu
+e($_);
}