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);

##</code><code>##

Use of uninitialized value in concatenation (.) or string at c:/ActivePerl/site/lib/Plucene/Index/SegmentInfos.pm line 57.
read_file '/segments' - sysopen: No such file or directory at c:/ActivePerl/site/lib/Plucene/Index/SegmentInfos.pm line 57

##</code><code>##

my ($count, @unpack) = unpack "NN/(w/aN)", read_file("$directory/segments");