你可以有两个方案
1) 用 dos 本身的功能
perl yourscript.pl > C:\result.txt
2) 在 perl 里做
open F, ">C:/Result.txt" or die "$! Can't prepare file!";
opendir D "D:/read" or die "$! Can't read dir!";
print F "$_$/" while ( readdir D ) ; # 或者照你原来的写法就行了.
closedir D;
close F;
使用文件句柄啊。
open WH, "> result.txt";
...
print WH "....";
close