my ($v1, $rest) = unpack ("C4 a*", $packet); 

my ($l, $payload) = unpack ("C2 a*, $rest); 

##</code><code>##

my ($l, $payload) = unpack ("H4 a*, $rest);