use Socket; : : : module stuff not shown for clarity my $name=gethostbyaddr(inet_aton($self->{ip}), AF_INET); # Lookup hostname