#!/usr/local/bin/perl
foreach (@ARGV) {
    $ipi = (gethostbyname($_))[4];
    if ($ipi) {
	print(join(".",unpack("C4", $ipi)),"\n");
    } else {
	warn "$_: unknown host\n";
    }
}