ローマ数字とかをutf8からsjisに変換するときに、Encodeで化けてもUnicode::Japaneseだと化けなかったりする

use strict;
use warnings;
use Encode;
use Unicode::Japanese;

my $s = 'ほげⅠふが';

my $e = $s;
   $e = decode('utf-8', $e);
   $e = encode('shiftjis', $e);
open my $fe, '>', 'encode';
print $fe $e; # ほげ?ふが
close $fe;

my $u = $s;
   $u = Unicode::Japanese->new($u)->sjis;
open my $fu , '>', 'unicode_japanese';
print $fu $u; # ほげⅠふが
close $fu;

出力はsjisというかcp932