Select Code to Download

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

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