7 lines
210 B
Perl
7 lines
210 B
Perl
use XML::DOM::BagOfTricks qw(createDocument createTextElement);
|
|
|
|
my ($doc, $root) = createDocument('root');
|
|
$root->appendChild(
|
|
createTextElement($doc, 'element', 'Some text here')
|
|
);
|
|
print $doc->toString;
|