package My::Foo::Bar;
@ISA = qw(Foo::Bar);
sub do_magic { ... } # tinker here