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