my $res = Net::DNS::Resolver->new( ...