perl文件操作解决方法

perl文件操作
perl读取一个指定的文件，然后把这些内容输出到一个新的文件里面，然后打印输出，怎么实现

[解决办法]
cp oldfile newfile
[解决办法]

Perl code

#!/usr/bin/perluse strict;use warnings;open FIN,'< a.txt';open FOUT,'> b.txt';while(<FIN>){    print FOUT $_;    print STDOUT $_;}close FIN;close FOUT;