my ($data) = unpack "N", $foo;
my ($ver, $hlen) = (vec($data,0,4), vec($data,1,4));
my $tos = vec($data, 1, 8);
my $len = vec($data, 1, 16);