Select Code to Download

use strict;
use warnings;
...
    read $self->{fin}, my $block, $self->{blocks}{$blockType}{length};
    print "$blockType:\n$block\n";
}

foo:
=foo
...
The wibble section

No 'bar' blocks in file