$ dnscheck.pl atlrhel5cs
query -> atlrhel5cs.example.com
;; query(atlrhel5cs.example.com)
;; setting up an AF_INET() family type UDP socket
;; send_udp(127.0.0.1:53)
;; answer from 127.0.0.1:53 : 52 bytes
;; HEADER SECTION
;; id = 32277
;; qr = 1    opcode = QUERY    aa = 0    tc = 0    rd = 1
;; ra = 1    ad = 0    cd = 0    rcode  = NOERROR
;; qdcount = 1  ancount = 1  nscount = 0  arcount = 0

;; QUESTION SECTION (1 record)
;; atlrhel5cs.example.com.  IN      A

;; ANSWER SECTION (1 record)
atlrhel5cs.example.com.     9270    IN      A       10.180.10.46

;; AUTHORITY SECTION (0 records)

;; ADDITIONAL SECTION (0 records)

$VAR1 = \bless( {
                   'answer' => [
                                 bless( {
                                          'rdlength' => 4,
                                          'ttl' => 9270,
                                          'name' => 'atlrhel5cs.example.com',
                                          'address' => '10.180.10.46',
                                          'class' => 'IN',
                                          'type' => 'A',
                                          'rdata' => '
�
.'
                                        }, 'Net::DNS::RR::A' )
                               ],
                   'buffer' => undef,
                   'question' => [
                                   bless( {
                                            'qclass' => 'IN',
                                            'qname' => 'atlrhel5cs.example.com',
                                            'qtype' => 'A'
                                          }, 'Net::DNS::Question' )
                                 ],
                   'answerfrom' => '127.0.0.1',
                   'answersize' => 52,
                   'additional' => [],
                   'authority' => [],
                   'header' => bless( {
                                        'nscount' => 0,
                                        'cd' => 0,
                                        'qdcount' => 1,
                                        'ancount' => 1,
                                        'rcode' => 'NOERROR',
                                        'tc' => 0,
                                        'opcode' => 'QUERY',
                                        'ad' => 0,
                                        'ra' => 1,
                                        'qr' => 1,
                                        'arcount' => 0,
                                        'id' => 32277,
                                        'aa' => 0,
                                        'rd' => 1
                                      }, 'Net::DNS::Header' ),
                   'offset' => undef
                 }, 'Net::DNS::Packet' );