Help for this page
package MyHandler; ... } 1;
package MyDBI; ... __PACKAGE__->set_db('Main', @dsn); 1;
use MyDBI; # Automatically pooled and recreated if the old one times out or dies: my $dbh = MyDBI->db_Main;