01 #!/usr/local/bin/perl -w
02 use strict;
03 use OpenOffice::OODoc;
04 
05 (my $file) = @ARGV;
06 
07 die "usage: $0 file" unless defined $file;
08 
09 my $doc = ooDocument( 
10     file   => $file,
11     member => "content",
12 );
13 
14 (my $element) = $doc->selectElements(
15     '//office:body');
16 
17 print $element->_dump();