Select Code to Download

{
    package Foo;
...

use Data::Dumper;
print Dumper(Foo->foo);

$VAR1 = bless( {}, 'Foo' );

*Bar::foo = \*Foo::foo;

$VAR1 = bless( {}, 'Bar' );

print Dumper(Foo->foo);
print Dumper(Bar->foo);