# in a startup.pl
use Apache::DBI;
my %args = ( 'dsn' => 'dbi:mysql:foo', 
             'user' => 'xx',
             'pass' => 'xx');

# note this does a DBI->connect 
my $dbsource = MyProject::DBSource::MySQL->new(%dbargs);

$My::TransHandler = MyProject::Handler->new('source' => dbsource);

# in conf
PerlTransHandler $My::TransHandler->handle