my $length_read = $Config{shortsize} + $Config{longsize} + ...;
my( $ping, $rate, $name, $ctpos, $clantag, $isbot ) = unpack('S V Z32 A1 Z32 A1', substr($self->package_reader->buffer(), $self->package_reader->index(), $length_read));
$self->package_reader->index($self->package_reader->index() + $length_read);