note
bh_perl
<br>You are answer my question. Thank you very much. I am still analyzed how to replace between your query with mine</br>
<code>
My query
$length = unpack "C4", substr $data,0,2,'';
Your query
my ($n) = unpack 'x v', $raw;
</code>
858459
858467