$ perl -E'
   {
      use call_when_scope_is_compiled \&foo;
      sub foo { say "foo!" }
      BEGIN { say "pre"; }
   }
   BEGIN { say "post"; }
'
pre
foo!
post