Select Code to Download

my $ldap_msg = $ldap->search( ... );
if ( my $code = $ldap_msg->code ) {
...
while ( my $entry = $ldap_msg->shift_entry ) {
    # use $entry
}