Select Code to Download

   print "getting new resolvers for dns server $dns_server\n";
   for my $resolver ( @{$new_resolvers{$dns_server}} ) {
...
     }
   }
   print "\n";