use Net::DNS::Resolver;
  Net::DNS::Resolver->tcp_timeout(1);
  Net::DNS::Resolver->udp_timeout(1);

  # remainder of your program