#!/usr/bin/perl
#
#
use strict;
use warnings;
use Text::Kakasi;

open ( OUT, ">poo" ) || die $!;

my $str = "ËâË¡";
my $k = Text::Kakasi->new('-JH','-c','-w','-i euc','-o euc');
$k->set('-w', '-c', '-JH', '-i euc', '-o euc');

my $jpn = $k->get($str);
print OUT "$str = $jpn ". "\n";
print OUT "error = " . $k->error . "\n";

my $res = Text::Kakasi::getopt_argv('-JH', '-c', '-w');
my $nstr = Text::Kakasi::do_kakasi($str);

print OUT "jpn = $nstr\n";