Select Code to Download

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

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