my $ldap_msg = $ldap->search( ... );
if ( my $code = $ldap_msg->code ) {
    die "Error running search: ",
        Net::LDAP::Util::ldap_error_text( $code );
}
while ( my $entry = $ldap_msg->shift_entry ) {
    # use $entry
}