use Socket;

my $address = '127.0.0.1';

my $hostname = gethostbyaddr(inet_aton($address), AF_INET) 
    or die "Couldn't resolve ($address): $!";
[download]