This was my ending code on this. $input was a standard IP...

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

-Ozzyosbourne