use Socket qw( AF_INET inet_aton );

my $name = gethostbyaddr(inet_aton('69.147.76.15'), AF_INET);
print "$name\n";

##</code><code>##

f1.www.vip.re1.yahoo.com