Perl 5.8.0 以上で使えるエンコード

# via PerlIO
open my $in,  "<:encoding(shiftjis)", $infile  or die;
open my $out, ">:encoding(euc-jp)",   $outfile or die;
while (<$in>) {
    print $out $_;
}

# via from_to
open my $in,  "<", $infile  or die;
open my $out, ">", $outfile or die;
while(<$in>) {
    from_to($_, "shiftjis", "euc-jp", 1);
    print $out $_;
}