#!/usr/bin/perl
use lucene;

$list = new lucene(join(' ', @ARGV));

foreach $file ($list->read()) {
  print "$file\n";
}