KinoSearch, the query code

    use strict;
    use warnings;

    use KinoSearch::Searcher;
    use KinoSearch::Analysis::PolyAnalyzer;
    use KinoSearch::Highlight::Highlighter;

    my $path_to_invindex = shift;
    my $q = shift;

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

    my $searcher = KinoSearch::Searcher->new(
	invindex => $path_to_invindex,
	analyzer => $analyzer,
    );