sub connect_db { # Datenbank konnektieren

    $dbh = DBI -> connect($driver, $dbuser, $password) or &error("Fehler beim Konnektieren der Datenbank");
    return $dbh;
}