#!/usr/bin/perl -w
use strict;

use SearchIndexer;

use Searchable::Generic;
use Searchable::Folder;
use Searchable::FamilyTree;
# ... whatever else ...

my @searchable = qw(Searchable::Generic Searchable::Folder Searchable::FamilyTree);

my $indexer = new SearchIndexer();

foreach my $module (@searchable) {
    $indexer->add($module::get_list());
}

$indexer->run();