>>10
diaryj.cgiの2行目に以下をコピペして何が表示されるか試してみ。

use CGI::Carp qw(fatalsToBrowser);