Select Code to Download

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

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

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