my %href;
 my ($uid) = @_;
    $mesg = $ldap->search( # perform a search
        base   => "ou=People,dc=male",
        filter => "(&(objectClass=posixAccount)(uid=$uid))",
                 );
    $mesg->code && die $mesg->error;
 
    foreach my $entry ($mesg->entries) { 
        foreach my $attr ($entry->attributes) {
             $href{"$attr"} = $entry->get_value($attr, asref => 1);
        }
    }
    return \%href