#!/usr/bin/perl

use strict;
use warnings;

use Net::DNS;

my $res = Net::DNS::Resolver->new; 

my $target;

# Single-target test
$target = q{entrust.net};

# To run from command-line, uncomment loop below
# foreach my $target ( @ARGV ) 
{
    my $reply = $res->query( q{entrust.net}, q{CAA}, );  

    if ( $reply ) { 
        foreach my $rr ( $reply->answer ) { 
            # Complete response
            $rr->print; 

            # Individual response components
            print qq{Owner:    }, $rr->owner,    qq{\n}; 
            print qq{Type:     }, $rr->type,     qq{\n}; 
            print qq{Class:    }, $rr->class,    qq{\n}; 
            print qq{TTL:      }, $rr->ttl,      qq{\n}; 

            # RR-specific data as string
            print qq{RDstring: }, $rr->rdstring, qq{\n};

            # RR-specific data components
            print qq{Flags:    }, $rr->flags,    qq{\n}; 
            print qq{Critical: }, $rr->critical, qq{\n}; 
            print qq{Tag:      }, $rr->tag,      qq{\n}; 
            print qq{Value:    }, $rr->value,    qq{\n}; 

            print qq{\n};
        } 
        else { 
            warn qq{query failed: }, $res->errorstring, qq{\n}; 
        }
    }
}