use Socket; my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyaddr(inet_aton("74.125.79.94")); print $name,$/;