Select Code to Download

sub read_block {
   my ($fh, $bytes_to_read) = @_;
...
# Read
my $num_numbers = unpack('C',  read_block($fh, 1));
my @numbers     = unpack('C*', read_block($fh, $num_numbers));