$dbh->disconnect or warn $dbh->errstr;