$dbh->disconnect or warn "Disconnection failed: $DBI::errstr\n";
sleep(5);
$dbh = DBI->connect_cached(@connection) or die;