pure-perl DNS resolver with support for timeout