Select Code to Download

use strict;
use warnings;
...
binmode(STDOUT, ":encoding($dst_enc)");

print while <STDIN>;

use strict;
use warnings;
...
   from_to($_, $src_enc, $dst_enc);
   print;
}