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