Select Code to Download

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