Another option would be to use Net::DNS::Resolver - at least if you're happy with DNS lookups only (AFAICT, it doesn't do local lookups via /etc/hosts). The Net::DNS suite of modules allows very flexible configuration. Among other things you can configure timeouts, list of nameservers to query and number of retries per server (those should be the most interesting options to reduce lookup times...).

Here's a simple example, which you can use for both forward and reverse lookups: 

use Net::DNS::Resolver;
    
my $res = Net::DNS::Resolver->new(
               nameservers => [qw(10.0.5.10)], # specify your own here
               udp_timeout => 2,
               retry       => 1,
              #debug       => 1,
          );

my $host = '123.123.123.123';

if (my $pkt = $res->query($host)) {
    for my $answer ( $pkt->answer() ) {
        my $type = $answer->type();
        if ($type eq "PTR") {
            print $answer->ptrdname(), "\n";
        } elsif ($type eq "A") {
            print $answer->name(), "\n";
        }
    }
}

[download]

In reply to Re: Timout a gethostbyaddr? by almut
in thread Timout a gethostbyaddr? by rementis

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.