#!/usr/local/bin/perl -w
use strict;
use OpenOffice::OODoc;

(my $file) = @ARGV;

die "usage: $0 file" unless defined $file;

my $doc = ooDocument(
    file   => $file,
    member => "content",
);

(my $element) = $doc->selectElements(
    '//office:body');

print $element->_dump();