sub DBConnect { my $er;
my $DBCall={
      'connect_cached.connected' => sub {
          shift->do("SET SESSION block_encryption_mode='aes-128-cbc'");
      }
  };

my $dsn='DBI:mysql:database='.$Set{DBName};
$dbh=DBI->connect($dsn, $Set{DBUser}, $Set{DBPass}, { Callbacks => $DBCall }) || ($er=1);
 if ($er){ myErr('DB Start Error'); }
} ##DBConnect##