use Net::DNS;
my $res = Net::DNS::Resolver->new;
$res->tcp_timeout(0) ;
$res->udp_timeout(0) ;
$res->retry(0) ;
$res->recurse(0) ; # turn off recurse query


にしてみた @live23,24