perl -MO=Deparse -e"BEGIN{ my $x = 12345; *Foo = sub(){ $x } }; print Foo"
sub BEGIN {
    my $x = 12345;
    *Foo = sub () {
        $x;
    }
    ;
}
print 12345;
-e syntax OK

##</code><code>##

perl -MO=Deparse -e"{ my $x = 12345; *Foo = sub(){ $x }; } print Foo()"
{
    my $x = 12345;
    *Foo = sub () {
        $x;
    }
    ;
}
print Foo();
-e syntax OK