Perlコーディング初心者質問スレ Part 58

[0027 nobodyさん 2008/08/08(金) 02:06:15 ID:???]

my $c = 9250; #JISコードの"あ"
print Jcode->new(chr $c,"jis")->utf8,"\n";
print Jcode->new("あ","jis")->utf8, "\n";

異なる結果が表示されるのですが、同じ結果はどうすれば得られますか。