my $addr = join(".", unpack("C4", (gethostbyname("$name"))[4]));
print ("$addr1\n");