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