$dbh->disconnect;

$sth    = $dbh->prepare(...) or die ...