Select Code to Download

package DynPackage;
use Filter::Simple;
use Text::Balanced qw/ extract_bracketed /;
...
;

1;

use DynPackage;

foreach my $block ($self->get_blocks) {
...
  };
  $self->_croak($@) if $@;
}