use strict;

use Plucene::Simple;
use Plucene::Index::Reader;

###### INPUT #######################
my $index_path = "./idexdir";
####################################

# create an index
my $plucy = Plucene::Simple->open($index_path);
$plucy->index_document(doc1 => 'Go to restaurant');
$plucy->index_document(doc2 => 'Return money');

my $reader = Plucene::Index::Reader->new($index_path);
my Plucene::Index::SegmentsReader $seg_read = $reader->open;

print "$seg_read\n";

exit(0);
[download]

Use of uninitialized value in concatenation (.) or string at c:/Active
+Perl/site/lib/Plucene/Index/SegmentInfos.pm line 57.
read_file '/segments' - sysopen: No such file or directory at c:/Activ
+ePerl/site/lib/Plucene/Index/SegmentInfos.pm line 57
[download]

my ($count, @unpack) = unpack "NN/(w/aN)", read_file("$directory/segme
+nts");
[download]

you could used $writer->set_mergefactor(anyvalue); while creating index