my $list = $doc->insertItemList($par, $style = "L1");
$doc->appendListItem($list , text => "Eins", style => $styl);
$doc->appendListItem($list , text => "Zwei", style => $styl, level => 2);
$doc->appendItem($list, text => $_) for
(
        "Platform : $^O",
        "Perl version : $]",
	"Archive::Zip version : $Archive::Zip::VERSION",
	"XML::XPath version : $XML::XPath::VERSION",
	"OpenOffice::OODoc version : $OpenOffice::OODoc::VERSION"
);