[Perl]Encodeモジュールでコード変換

use Encode;
#EUC->Shift-JISの例
foreach (map glob($_), @ARGV)
{
print $_."\n";
open IN, "<:encoding(euc-jp)", $_ or die;
open OUT, ">:encoding(shiftjis)", "sjis_".$_ or die;
while (<IN>){ print OUT $_; }
}
# 下のような方法もあるらしい(from_to)
# open my $in, "<", $infile or die;
# open my $out, ">", $outfile or die;
# while(<$in>){
# from_to($_, "shiftjis", "euc-jp", 1);
# print $out $_;
# }