Help for this page
pack('n', $stru << 5 | $aw << 2 | $pos)
pack('n', ($stru & 31) << 5 | ($aw & 7) << (2 & 3) | $pos)