use strict;
use warnings;
use XML::Twig;
my $twig = new XML::Twig('pretty_print' => 'indented');
$twig->safe_parse('<say/>');
my $root = $twig->root();
$root->set_text('Hello World');
$twig->print();