#AAA/Some.pm 
package some; sub aaa{}; 1; 
#BBB/Foo.pm
package foo; sub aaa{} ; 1;
#BBB/Bar.pm
package bar; 
 use base qw(foo);
 sub bbb{
   aaa();
  }
1;