sub hex2ip{
	return join(".", map {hex($_)} split(/\./,shift));
}