use strict;
use warnings;
use 5.010;

package Bar;

sub baz {
    say 'buzzzzz...';
    Foo->baz;
}

package Foo;

our @ISA = qw(Bar);

package main;

Foo->baz;

__END__
buzzzzz...
buzzzzz...
buzzzzz...
buzzzzz...
...