日本語もちゃんと表示したい場合、以下のように定義した。 { package D; sub dump { require Data::Dumper; require Data::Recursive::Encode; my $text = Data::Dumper::Dumper(Data::Recursive::Encode->encode('utf8', $_[1])); die Encode::decode_utf8(…