unless ($dbh->ping) {
    $dbh = DBI->connect(@connection);
}