while {1} {
	set packets [hping recvraw eth0 -1 1]
	foreach p $packets {
		set len [string bytelength $p]
		binary scan $p H* hex
		puts "$len: $hex\n"
	}
}