my $sth = $dbh->prepare('DESC tabelle') or
                  die "Fehler bei der Vorbereitung:\n\t$DBI::errstr\n";
    
    if ($sth->execute()) {
        print "Zugriff auf tabelle ok, desc:\n";
        $sth->dump_results();
    }
    else {
        my $sql = 'CREATE TABLE tabelle (';
        for my $i (0..$#rows) {
            $sql .= $rows[$i] . ' ' . $types[$i];
            $sql .= ',' unless $i == $#rows;
        }
        $sql .= ')';
        print $sql, "\n";
        my $create = $dbh->prepare($sql) or
            die "Fehler beim prepare zum Anlegen der Tabelle tabelle:\n" .
                "\t$DBI::errstr\n";
        $create->execute() or
            die "Fehler bei der Ausfuehrung zum Anlegen der Tabelle tabelle:\n".
                "\t$DBI::errstr\n";
        print "Tabelle tabelle angelegt.\n";
        ...
    }