package Foo; 
our $bar = 'some default'; 

package main; 
print $Foo::bar, "\n";
$Foo::bar = 'something else';
print $Foo::bar, "\n";