my ($ver, $hlen, $tos, $len) = unpack "b4b4b8n", $foo;