$dbh->{AutoCommit} = 0;    # SET FOR TRANSACTION
my $result = $dbh->do("SET TRANSACTION ISOLATION LEVEL READ COMMITTED");
print Dumper($result);
my @row_ary = $dbh->selectrow_array("SELECT * FROM information_schema.session_variables WHERE variable_name LIKE 'tx_%'");
print Dumper(@row_ary);


$VAR1 = '0E0';
$VAR1 = 'TX_ISOLATION';
$VAR2 = 'REPEATABLE-READ';