sub mysql_disconnect {
if ($dbh) {$dbh -> finish;}
defined $_[0] and ($_[0]->disconnect or die "Keine Verbindung zur MySQL-Datenbank möglich - Grund: $DBI::errstr" and undef $_[0]);
}