use Encode;
#@list = Encode->encodings();

@all_encodings = Encode->encodings(":all");

#print "** Loaded encodings\n";
#print join( "\n", @list );
print "\n** All encodings\n";
print join( "\n", @all_encodings );


$string = decode( 'iso8859-2', "abcd旃桫君犴" );
print "$string\n";


#        # 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 $_;
#         }


