#!/usr/bin/perl -W
package Net::DNS::Method::Dummy;
use Net::DNS::Method;
use Net::DNS;

our @ISA = qw(Net::DNS::Method);

sub new { bless [], $_[0]; }

sub A { 
    my $self = shift;
    my $q = shift;
    my $a = shift;
    
    $a->header->rcode('NOERROR');
    $a->push('answer', new Net::DNS::RR $q->qname . ' 10 IN A 1.1.1.1');
    return NS_OK;
}

package main;

use Net::DNS;
use Net::DNS::Method;
use Net::DNS::Server;

my $method = Net::DNS::Method::Dummy->new;

my $server = new Net::DNS::Server ('5.5.5.5:53', [ $method ])
    or die "Cannot create server object: $!";

while($server->get_question()) {
    $server->process;
    $server->send_response();
}