perl -e" $FOO::ONE = 1;  *BAR::ONE = *FOO::ONE ; $BAR::ONE = 2; print $FOO::ONE "

##</code><code>##

$ perl -e" $FOO::ONE = 1;  *BAR:: = *FOO:: ; $BAR::ONE = 2; print $FOO::ONE
1