An example of querying Lucy with Lucy::Simple

search-simple.pl

#! /usr/bin/env perl

use strict;
use warnings;

use Lucy::Simple;

my $index = Lucy::Simple->new(
    path     => './index',
    language => 'en',
);

if ( my $query_string = $ARGV[0] ) {

    my $total_hits = $index->search(
        query      => $query_string,
        offset     => 0,
        num_wanted => 10,
    );

    print "Total hits: $total_hits\n";
    while ( my $hit = $index->next ) {
        print "$hit->{page}\n",
    }
}