use Socket;
my $iaddr = inet_aton('64.236.172.30');
my $name  = gethostbyaddr($iaddr, AF_INET);
print $name;