Help for this page
my $res = Net::DNS::Resolver->new; $res->nameservers(); ... else { print "query failed: ", $res->errorstring, "\n"; }