Select Code to Download

#!/usr/bin/perl -w
use strict;
...
   my $resolvers           = join "\n", @{$new_resolvers{$dns_server}}
+;
   print "$resolvers\n\n";
}

getting new resolvers for dns server dns-extern
...
127.0.0.1       dns-apple
127.0.0.2       dns-banana
127.0.0.3       dns-shoe