perlで漢字コードを変換するサンプル

久しぶりにperl書きましたが、意外と忘れないものですね。
ながらくみかけないEUC-JPのテキストを修正することになりました。
しかし、EUC-JPを扱うツールを現在用意していなかったので、手抜きですが
perlでスクリプトを書いてみました。
JavaではないのはJavaの漢字コードの変換に不安を感じるからです。

use Jcode;
$text;
if(-f $ARGV[0]){
open(FILE,$ARGV[0]);
foreach $line(){
$text.=Jcode->new($line)->sjis();
}
close(FILE);
}
open(FILE,">$ARGV[0]");
print FILE $text;
close(FILE);