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

##</code><code>##

BEGIN {
    my $package = ... Complicated expression ...;
    eval <<"EOT"
package ${package};
sub foo { ... }
sub bar { ... }
EOT
}