my cgi program is test.cgi: ####################### require "./connectdb.pl"; &connectdatabase(); $query="select count(*) from messages"; $sth=$dbh->prepare($query); $sth->execute(); $count=$sth->fetchrow_array(); print "Content-type: text/html\n\n"; print <<"TAG"; <html> <body> <h2> The count is $count. </h2> </body> </html> TAG exit 0; ############# my connectdb.pl : sub connectdatabase { # my ($dbusername,$dbpassword)=@_; $dbusername="postgres"; $dbpassword="lokicom"; $dbname="mboardsony"; use DBI; $dbh=DBI->connect("dbi:Pg:dbname=$dbname",$dbusername,$dbpassword) or die "can not connect to $dbname\n"; } 1; ####################### my os is Redhat 6.2,and perl 5.005,and web server is Apache. The problem is:when I run test.cgi,it can work properly.But when I press F5 to refresh the web page for sever minutes,the Apache will have error message: "DBI->connect failed: Sorry, too many clients already." Who can help me? Thank you ahead.
