#!/usr/bin/perl
use 5.014;
use strictures;
use Lucy::Simple;

my $index = Lucy::Simple->new(
    path     => $ARGV[0],
    language => 'en',
);

my $query_string = $ARGV[1];
my $total_hits = $index->search(query => $query_string);

#print "Total hits: $total_hits\n";
while ( my $hit = $index->next ) {
    print "$hit->{id}\t";
    print "$hit->{content}";
}