my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname("royal.tns.ne.jp");
my (@data) = unpack('C4', $addrs[0]);
my $ip = join '.', @data;