Select Code to Download

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

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