require Socket; # very much core perl
  my $_host = gethostbyaddr(Socket::inet_aton($ip), Socket::AF_INET());