Also look at Swish-e which has a Perl API in SWISH::API (not on CPAN). The next version of Swish-e will have optional KinoSearch and Xapian backends.