package Foo;

package Foo::Bar;
use base 'Foo';

print "$_ => $Foo::{$_}\n" foreach keys %Foo::;