#!/usr/local/bin/perl
# Do a quick hostname lookup and report aliases too.
# Kees Cook 1997

if ($ARGV[0] =~ /^([0-9]*)\.([0-9]*)\.([0-9]*)\.([0-9]*)$/) {
	($name, $aliases, $addrtype, $length, @addrs) =
		gethostbyaddr(pack("C4","$1","$2","$3","$4"),2);
}
else {
	($name, $aliases, $addrtype, $length, @addrs) = gethostbyname($ARGV[0]); 
}
if ($name) {
	print "Name: ",$name, "\nAliases: ",$aliases,"\nAddrType: ", $addrtype, 
		"\nLength: ", $length,"\n";
	foreach $adr (0..$#addrs) {
		print "IP: ",join(".",unpack("C4", $addrs[$adr])),"\n";
	}
}
else {
	die "Lookup failed.\n";
}