use Socket qw( AF_INET inet_aton );

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