$sth= $dbh->prepare ($sql);
# stoping mysql
$sth->execute (); # entering reconnect mode in MyDBI::st/db: 
while (!$dbh->ping) { 
sleep 5; 
MyDBI->connect_like_mysql_reconnects;
}