package MList_Manager::mailing_lists;
....
sub mailing_lists {
     my $self = shift;
     my $q = $self->query();
     my $f = $q->Vars();
     
     # Code that calls each section from the file that it's
     # part of. In case some section doesnt exists, AUTOLOADER
     # is called automaticly.
     
     # If nothig is to be called, it calls mailing_lists_main
     if (defined($f->{section}) && (length($f->{section})>=1)){
          my $section = $_file . $f->{section};
          return &$section($self);
########
######## faking it here since this is actualy
######## executed as main module wich inherited this
######## methods ...
########
########
    }
    
     return $self->mailing_lists_main();
}
....