use strict;
use warnings;
use Carp;

<snip>


my $res = Net::DNS::Resolver->new(
    nameservers => [qw(nnnnn.com xxxxx.com)],
    recurse     => 0,
    debug       => 1,
);

my $query = $res->query("CLIENT IP");

  if ($query) {
      foreach my $rr ($query->answer) {
          next unless $rr->type eq "A"; ## Skip if not a host address record ##
          print $rr->address, "\n";
      }
  }
  else {
      warn "query failed: ", $res->errorstring, "\n";
  }



thank you!