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