Select Code to Download

sub Abc::foo { ... }
sub Abc::bar { ... }

BEGIN {
    my $package = ... Complicated expression ...;
...
sub bar { ... }
EOT
}