# The syntax is (name, altnames, addrtype, len, addrs) = gethostbyname (inname); #!/usr/local/bin/perl $machine ="123.1.1.1"; if (!(($name, $altnames, $addrtype, $len, @addrlist) = gethostbyname ($machine))) { die ("Machine name $machine not found.\n"); } print ("Equivalent addresses:\n"); for ($i = 0; $i < @addrlist; $i++) { @addrbytes = unpack("C4", $addrlist[$i]); $realaddr = join (".", @addrbytes); print ("\t$realaddr\n"); }