*{"main::foo"} = sub {}; *STDOUT; $a ** 2; $a *= 3; *$x; **; $x->**;