RosettaCodeData/Task/XML-DOM-serialization/Perl/xml-dom-serialization-1.pl

use XML::Simple;
print XMLout( { root => { element => "Some text here" } }, NoAttr => 1, RootName => "" );