#!/usr/bin/perl 
 
use IO::Socket;
use Net::DNS;

my $sock = IO::Socket::INET->new(LocalAddr => '127.0.0.1', LocalPort => 53, Proto => udp);

my $packet;
while($sock->recv($packet, 65536)){
   my $parsed = Net::DNS::Packet->new(\$packet);
   my $header = $parsed->header;
   $header->qr(1);
   $header->aa(1);
   $header->tc(1);
   $header->rcode("NOERROR");
   $parsed->print;
   my $data = $parsed->data;
   $sock->send($data);
}