$query = $res->search($term, "PTR") || return;
    for $rr ($query->answer) {
        if ($rr->can('ptrdname')) {
            push @answers, $rr->ptrdname;
        }
    }

##</code><code>##

    $query = $res->search($term, "PTR") || return;
    for $rr ($query->answer) {
            push @answers, $rr->ptrdname;
    }