sub Lese_Datei {
     my($datei) = @_;
     print "      Bearbeite '$datei' ...\n";
     my $doc = odfDocument(file => $datei);
     # alle Arbeitsblätter bearbeiten
     for (my $i=0; $i<$doc->getTableList();$i++) {
          my $tbl = $doc->getTable($i);
          print "         Name des Arbeitblattes: ".$doc->tableName($tbl)."\n";
          for (my $zeile=0; $zeile<20; $zeile++) {
               for (my $spalte=0; $spalte<20;$spalte++) {
                    print $doc->getCellValue($tbl, $zeile, $spalte).";";
                    } # for
               print "\n";
               } # for
          } # for
     } # Lese_Datei