perl -MMojo::Base=strict -MMojo::Util=spurt
-MMojar::Mysql::Connector=cnf,/home/me/.mysql/super_production-02.cnf
-E'my $d = Mojar::Mysql::Connector->new->connection;
$d->do(q{FLUSH LOGS});
my $unquiesce = $d->quiesce;
spurt $$ => q{/tmp/quiesced};
say q{Quiesced!};
while (-f q{/tmp/quiesced} and $d->ping) {
  say join q{ | }, $d->selectrow_array(q{SHOW MASTER STATUS});
  sleep 30
}
$unquiesce->()'