list of open DB handles?

[Bernd Prager]

Hi,

I would like to write a kind of general cleanup subroutine for the 
database handles when my program ends. Something like:
$SIG{__DIE__} = $SIG{__INT__} = $SIG{__QUIT__} = \&cleanup.

Is there a way to determine all the open DB and statement handles?
I don't want to code the specific handle 'finish' and 'disconnect'
statements every time again.
Or does somebody has another smart idea how to do that?

Thanks,
-- Bernd