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