sub BEGIN {
    eval q<
        use FindBin;
        use lib "$FindBin::Bin/..";
    >;
}
require 'lib/jacode.pl';

while (<>) {
    chop;
    &jcode'convert(*_, 'utf8', 'sjis', 'z');
    print $_, "\n";
}

1;
__END__