sub File_Copy_Rtn{
    my ($W_PASS_I,$W_PASS_O) = @_;
    open (IN,"$W_PASS_I");
    open (OUT,">$W_PASS_O");
    while(<IN>){
        s/&#169;/&copy;/g;
        print OUT;
    }
    close IN;
    close OUT;
    return;
}
ファイルの標準入出力でファイルをコピーしたいのですがデータが入ってきません。
どうしたらいいでしょうか？