sub hex2ip { return join(".", map {hex($_)} unpack('A2 A2 A2 A2',shift)) }