my @data = unpack("nZ*nnn", $packet);
print Dumper(\@data);