sub normalize_ip{
	return join(".", map {sprintf "%d", $_} split(/\./,shift));
}