use 5.020;
my @answers = $obj->answer;
for my $answer (@answers) {
    if ($answer->type eq 'PTR') {
        $ptrdname = $answer->ptrdname;
    }
}
say $ptrdname;