$doc= ooDocument(file => "./valahol/feltoltott.ods");
$doc->{'local_encoding'} = "iso-8859-2";
$doc->{'field_separator'}= ";";
$rows=$doc->getTableRows(0)-2; #valamiért két sorral többet állapít meg a valósnál
$normsheet = $doc->normalizeSheet(0, $rows, 10); #soronként tíz oszlopnyi adatot feltételez, vagyis a hiányzó cellákat kiegészíti így: ;;
$munkalap0= $doc->getTableText(0, $rows, 10); # csak az első munkalapot veszi vigyelembe
chomp $munkalap0;
open (FILE, ">./mashol/elmetett.csv");
print FILE $munkalap0;
close FILE;