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

##</code><code>##

sub getattrval {
    my ($hashref,$attr) = @_;
    if ( %$ld{$attr} ) {
        my $tmp_href = %$ld{$attr};
# return comma delimited string instead of array
        return join (",",@$tmp_href) if scalar @$tmp_href > 1;
        return  @$tmp_href[0];
    }
    return undef;
}