#!/usr/bin/perl

use strict;
use warnings;
use Search::VectorSpace;

my @docs = get_documents_from_somewhere();

my $engine = Search::VectorSpace->new(docs =>\@docs);
$engine->build_index();
$engine->set_threshold(0.8);

while ( my $query = <> ) {
    my %results = $engine->search( $query );
    foreach my $result( sort { $results{$b} <=> $results{$a} }
                              keys %results ) {
                print "Relevance: ", $results{$result}, "\n";
                print $result, "\n\n";
     }
     print "Next query?\n";
}