$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;