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