Select Code to Download

#!/usr/bin/perl
use warnings;
...
$doc->setDocumentElement(my $root = $doc->createElement('root'));
$root->appendText("\x0b");
print $doc->toString;

<?xml version="1.0" encoding="utf-8"?>
<root>
      </root>