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

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

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

sub A {
   my $self = shift;
.
.
.