($status, $expires, @rr) = @_; if ($status == EV::ADNS::s_ok) { use JSON::XS; warn encode_json \@rr; } } The format of result records varies considerably, here is som