Select Code to Download

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

print "KYL:\n",join('.',map ord,split//,(gethostbyname$host)[4]),"\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];