http://perldoc.jp/docs/modules/CGI-2.89/CGI/Carp.pod
http://homepage3.nifty.com/hippo2000/perltips/CGI/Carp.html
use CGI::Carp; croak "error nantoka kantoka \n";
use CGI::Carp;
croak "error nantoka kantoka \n";