Im not real familiar with this, but you can try:

$res = new Net::DNS::Resolver;
$res->tcp_timeout($s);

where $s is in seconds, ie. 60 = 1 minute.


Hope this helps.