use Net::DNS;
my @domains = qw/google.com perl.com perlmonks.org cpan.org/;
my $res   = Net::DNS::Resolver->new;
foreach my $domain( @domains ) {
   my $query = $res->search($domain);

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