Perlについての質問箱 63箱目

**デフォルトの名無しさん** · 2017/10/28(土) 14:12:24.45

#!/usr/local/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
print <<"EOM";
Content-tyoe: text/html; charset=shift_jis\n\n
<html><body>
EOM

eval {require DBI;};
if($@) {
print "DBI NG<br>\n";
} else {
print "DBI OK<br>\n";
}

undef $@;
eval {require DBD::SQLite; }
if($@) {
print "DBD::SQLite NG<br>\n";
} else {
print "DBD::SQLite OK<br>\n";
}

print "</body></html>";

sqlchk.cgiの19行目の構文エラー。 "）{"
と出るんですが何が原因か分かりません。もしよろしければ教えていただけないでしょうか？