mysqlperl测试diffmha