Can't call method "dn" on an undefined value at ./query_ldap2.pl line 83, <DATA> line 283.

##</code><code>##

} elsif ( $result->count() eq 0 ) {      
    my $entry = $result->entry(0);      
    print        "********",$entry->dn(),"*********\n";                     
    #my @pattrs =  $entry->attributes;      
    #print "******** @pattrs **********\n";
} else {