This could work easily if there were a non-scoping (read: unhygienic) version of eval. Then it would be just a

if ($foo) {
    unhygienic_eval "package $foo";
    sub bar { 23 }
}
[download]

But I have no experience with the perl guts and expect this to be much more work than it looks like.