package Foo; 
our $test = 12345; 
package Bar; 
print $Foo::test; 
$Foo::test='abcde'; 
package Foo; 
print $test;;

12345
abcde