use strict;
use warnings;

use XML::Writer;
my $c = XML::Writer->new;

$c->startTag('text:p','text:style-name'=>"Standard");
$c->characters('Hello');
$c->endTag('text:p');
$c->end;