Select Code to Download

my $schema = MyTest::Schema->connect(
  'DBI:mysql:my_db:192.XXX.XXX.25',
  'XX',
  'XX'
);

my $schema = MyTest::Schema->connect(
 sub {
...
  $dbh->{Active} = 1;
  return $dbh;
 }