print"THR:\n",join('.',unpack'C4',(gethostbyname$host)[4]),$/;

##</code><code>##

print "KYL:\n",join('.',map ord,split//,(gethostbyname$host)[4]),"\n";

$_=(gethostbyname$host)[4];s/./ord($&).'.'/ge;chop;print "KYL:\n$_\n";

use Socket;print "KYL:\n",inet_ntoa((gethostbyname$host)[4]),"\n";

printf"KYL:\n%d.%d.%d.%d\n",map ord,split//,(gethostbyname$host)[4];