Select Code to Download

 
use Jcode;
my $encoding = getcode($content);

my $mailtext = Jcode::convert($content, "jis", $encoding);