How to use DB Connection Pool in mod_perl2 ?

[firingme]

I want to know is there any package can give me a DB Connection Pool
in a mod_perl application ?

I've checked Apache::DBI, but it seems that it'll initialze a
new connection when a new thread born.