Select Code to Download

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

  $dr="C:\\Users\\Desktop\\collection2";
    opendir(DR, "$dr") || die "error" ;
    @docs=<DR>;
    @docs=readdir DR;