Select Code to Download

use Net::DNS; 
$res = new Net::DNS::Resolver;
...
}

print "OK DNS $domain" if dns_query($domain);

sub dns_query {
  return undef unless $res;
...
    }
  return 0;             
}