CSVを文字列で受け取ったり、
そのままダウンロードさせることが可能です。
使い方はこちらから
]]>my $hoge={ 'foo'=>'フー', 'bar'=>'バー', }; foreach my $Key (keys %{$hoge}){ $hoge->{$Key}=Encode::decode_utf8($hoge->{$Key}); } use JSON qw/encode_json/; print Content-Type:application/json; charset=utf-8n"; print encode_json($hoge);]]>