($name,$aliases,$addrtype,$length,@addrs) = gethostbyaddr("192.153.12.7",2);
($a,$b,$c,$d) = unpack('C4',$addrs[0]);
print "\$name = $name\n";
print "\$aliases = $aliases\n";
print "\$addrtype = $addrtype\n";
print "\$length = $length\n";
print "address = $a.$b.$c.$d\n";