#IP-Adresse auslesen
($addr) = (gethostbyname("$name"))[4];
$addr1 = join(".", unpack("C4", $addr));
print ("$addr1\n");