my ($name,$aliases,$addrtype,$length,@addrs) = gethostbyaddr(inet_aton("69.147.76.15"), AF_INET);
print $name."\n";
print $aliases."#".$addrtype."#".$length."\n";