$schema= My::Schema->connect(sub{ # Prep/config load. my $dbh = DBI->connect... # Do your logging. return $dbh; }