我编写了一个拷贝文件的小程序,为什么不能运行啊?

open IN,"test.txt";--o.
open IN,"test.txt";
open OUT,"testx.txt";
while (<IN>)
{
print OUT;
}

如果文件很大,用循环比较好。如果文件不大,可以用数组
刚学perl,发现真是一门很精炼的语言.
不过,perl最大的用途是什么啊?
3l楼正确!!
强!!