package Foo; # $CurrentObject = 'Foo'

package Bar;
# da gibt's nun mehrere Schreibweisen...
use parent -norequire, 'Foo'; 
# use base 'Foo';
# our @ISA = ('Foo');