package Foo;
our $foo = 'foo'; # $Foo::foo now exists

package main;
print $foo,"\n"; # $Foo::foo, not $main::foo !
print $Foo::foo,"\n";
__END__
foo
foo