質問です.
ある, 改行コードがCR+LFのテキストファイルがアップロードされた際, 改行コードをLFに
変換し, そのファイルを保存するcgiを書きたいのですが, 以下のように書いてみましたがうまくいきません.
LFに変換されずCR+LFのまま保存されてしまいます.
#!/usr/bin/perl
use CGI;
$query = new CGI;
Content-type: text/html\n\n

$fn = $query->param('filename');
$type = $query->uploadInfo($fn)->{'Content-Type'};

if($type =~ /^text\//){
　　open(FILE,">test.txt");
　　while (<$fn>) {
　　　　$temp = $_;
　　　　$temp =~ s/\r\n/\n/;
　　　　chomp($temp);
　　　　print FILE "$temp\n";
　　}
}
どのようにしたらいいでしょうか？宜しくお願いします.