open(FILE, "hoge.txt");

while(<FILE>) {
(置換とか)
}

open(WRITE, ">test.txt");
print WRITE <FILE>;

とやったのですがtest.txtにhoge.txtを処理した内容が書き込まれません。
何処が間違っているのでしょうか…。

Win2K、Apache1.3.27、ActivePerl5.6を使用。