Select Code to Download

my $name = $self->package_reader->read_string();
my $rate = $self->package_reader->read_long();
...

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_re
+ader->index(), $length_read));
$self->package_reader->index($self->package_reader->index() + $length_
+read);