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

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