use strict;
use warnings;
use Net::DNS;

my $server = '127.0.0.1'; # adjust as appropriate
my $resolver = Net::DNS::Resolver->new(nameserver => $server);

my $reply = $resolver->query("google.com","A");

if ($reply) {
  for my $answer ($reply->answer) {
    print $answer->address()."\n";
  }
}