package lucene;

use File::stat;
use URI::Escape;
use POSIX qw(strftime);

$ENV{CLASSPATH} .= ";C:/jakarta/jakarta-lucene/bin/demo/lucene-demos-20020723.jar;C:/jakarta/jakarta-lucene/bin/lucene-20020723.jar";

sub new {
  shift;
  $arg = uri_escape(shift);
  chop @matches = `java org.apache.lucene.demo.SearchFiles /index $arg`;

  $self = \@matches;
  bless $self;
  return $self;
}

sub read {
  my $self = shift;
  @$self;
}

1;