use Sys::Syslog qw(:DEFAULT setlogsock);
use Net::DNS;
use Net::IP;
use Net::DNS::Packet qw(dn_expand);
use Net::DNS::Packet;
use IO::Socket::INET;
use IO::Socket::UNIX;
use IO::Select;
my ($id, $bf, $qc, $anc, $nsc, $arc, $qb) =
unpack('n n n n n n a*', $buf);
my ($dn, $offset) = dn_expand(\$qb, 0);
my ($dn, $offset) = Net::DNS::Packet::dn_expand_PP(\$qb, 0);
if(($id && $anc) && ($id == $oid) && ($query eq $dn))
{