@ip = split(/\./, $input); 
$newname=gethostbyaddr(pack("C4", @ip), AF_INET);