Select Code to Download

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

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