$ perl
@HUH::ISA=q{FOO}; @FOO::ISA=q{BAR}; sub BAR::hi{66} sub FOO::hi { shift()->SUPER::hi }; print HUH->hi;
__END__
Can't locate object method "hi" via package "main::SUPER" at - line 1.