use strict;
use OpenOffice::OODoc;
use OpenOffice::OODoc::Meta;
use OpenOffice::OODoc::XPath ;
use OpenOffice::OODoc::Image;
&test;
sub test {
my $doc = ooDocument(file =>  "C:\\macros\\OOSjablonen\\test.odt") ;
my $element = $doc -> getFrameElement('frame_name');
print "el: $element text:\n";
}