my $dbh = DBI->connect("DBI:mysql:database=".$$CONFIG_ref{'db_name'}.";host=".$$CONFIG_ref{'db_host'},$$CONFIG_ref{'db_user'},$$CONFIG_ref{'db_passwd'})
        or return $$SITE_LANGUAGE_ref{"Die Datenbank kann nicht angesprochen werden."}." Error: ".$DBI::errstr;


    my $statement="show tables";
    my $sth = $dbh->prepare($statement) or die("Kann keine Abfrage ($statement) starten:$DBI::errstr");
    $sth->execute;
    my %tables = ();
    while (my $row = $sth->fetchrow)
    {
        $tables{$row} = 1;
    }
    return join "<br>\n", keys %tables; # als test