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

##</code><code>##

package Foo::Bar;
our @ISA = 'Foo';