#!/bin/perl

# test w/ me: dig +tcp -p 1024 @127.0.0.1 yahoo.com
# nameserver fun w Net::DNS

require Net::DNS;

sysread(STDIN,$all,1e+6);
$packet = Net::DNS::Packet->new(\$all,0);

open(A,">/tmp/debug-$$.txt");
print A $packet->string;
close(A);

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

# print $res->string;