use strict;
use Socket;

my $addr = shift || '172.17.0.1';
my ($name,$aliases) = gethostbyaddr(inet_aton($addr), AF_INET);

print "address $addr has the following names:\n";
print "\t$_\n" for ($name, split / /, $aliases);