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