+------Sub_class1
Main_class ---+------Sub_class2
              +------Sub_class3

##</code><code>##


Main.pm

use base qw(sub_1 sub_2 sub_3);

sub_1.pm

$self->seek_me();


sub_3.pm

sub seek_me{
  ##
}