use strict;
package Foo;
my $foo = 12;

package Bar;

print $Foo::foo;        # this won't work