18行目の
Content-type: text/html; charset=$CHARSET

だけど、行頭の空白は不要

jcode.pl は実行しないで読み込むライブラリだから 444 でもいいよ。

あと、２行目に以下のやつ書いてみてどうよ。
use CGI::Carp qw(fatalsToBrowser);