use Search::VectorSpace;
        
        my @docs = ...;
        my $engine = Search::VectorSpace->new( docs =>\@docs, threshold => .04);
        $engine->build_index();
        
        while ( my $query = <> ) {
                my %results = $engine->search( $query );
                print join "\n", keys %results;