あらら、470さんでしたね、失礼。
私もPerlは知らないんですが、こんな感じにdecoded_contentのある行を変えてます
my @content_array = &html2dat($response->decoded_content('charset' => "Shift_JIS"));
ログレベルをあげて見てるとcontentサイズが1とか出ていたのでdecoded_contentをcontentにしたら文字化け
ということで調べて適当に指定してみたら読めたので深く追求はしていません