#!/bin/perl
#Convert an IP address to its fully qualified domain name.
use Socket;

$ip = inet_aton('131.211.17.1')      or die "$0: inet_aton failed";
@entry = gethostbyaddr($ip, AF_INET) or die "$0: gethostbyaddr failed";

print $entry[0], "\n";
exit 0;
