require Net::DNS::Resolver;
   my $r = Net::DNS::Resolver->new;

   $r->nameservers
      or die;

   for my $s ($r->nameservers) {
      if (my $ipn = AnyEvent::Socket::parse_address ($s)) {
         push @{ $self->{server} }, $ipn;
      }
   }
   $self->{search} = [$r->searchlist];