Help me for "DBI->connect failed: Sorry, too many clients already."

Joseph <joseph@sitewarehouse.net>

From: "Joseph" <joseph@sitewarehouse.net>

To: <pgsql-hackers@postgresql.org>, <pgsql-interfaces@postgresql.org>, <joseph@sitewarehouse.net>

Cc: <pgsql-admin@postgresql.org>, <pgsql-general@postgresql.org>

Date: 2000-12-19T18:56:33Z

Lists: pgsql-hackers, pgsql-general

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.
  
  My email: joel_xue@hotmail.com