KinoSearch, the code

    use strict;
    use warnings;
    use Email::Folder;
    use File::Spec;
    use KinoSearch::InvIndexer;
    use KinoSearch::Analysis::PolyAnalyzer;

    my $path_to_invindex = shift;
    
    my $analyzer = KinoSearch::Analysis::PolyAnalyzer->new(
       language => 'en',
    );

    my $create = 0;
    if (not -d $path_to_invindex) {
        mkdir $path_to_invindex;
	$create = 1;
    }

    my $invindexer = KinoSearch::InvIndexer->new(
       analyzer => $analyzer,
       invindex => $path_to_invindex,
       create   => $create,
    );