in reply to DBI Disconnect does nothing!

$dbh->disconnect or warn "Disconnection error: $DBI::errstr\n";