$res = Net::DNS::Packet->new(); 
$rr = Net::DNS::RR->new("news.yahoo.com. 86400 A 10.1.2.3"); 
$res->push(answer => $rr); 
print $res->data; 

##</code><code>##

;; HEADER SECTION
;; id = 26432
;; qr = 0    opcode = QUERY    aa = 0    tc = 0    rd = 1
;; ra = 0    ad = 0    cd = 0    rcode  = NOERROR
;; qdcount = 1  ancount = 1  nscount = 0  arcount = 0

;; QUESTION SECTION (1 record)
;; .    IN      A

;; ANSWER SECTION (1 record)
news.yahoo.com. 86400   IN      A       10.1.2.3

;; AUTHORITY SECTION (0 records)

;; ADDITIONAL SECTION (0 records)

##</code><code>##

> dig -p 1024 @localhost news.yahoo.com

; <<>> DiG 9.3.1 <<>> -p 1024 @localhost news.yahoo.com
; (1 server found)
;; global options:  printcmd
;; connection timed out; no servers could be reached

##</code><code>##

;; HEADER SECTION
;; id = 41909
;; qr = 0    opcode = QUERY    aa = 0    tc = 0    rd = 1
;; ra = 0    ad = 0    cd = 0    rcode  = NOERROR
;; qdcount = 1  ancount = 0  nscount = 0  arcount = 0

;; QUESTION SECTION (1 record)
;; news.yahoo.com.      IN      A

;; ANSWER SECTION (0 records)

;; AUTHORITY SECTION (0 records)

;; ADDITIONAL SECTION (0 records)