Select Code to Download

use strict;
use warnings;
...
}

print $doc->toString();

<?xml version="1.0"?>
<root>
...
<cat tail="text" meow="default"/>
<dog tail="text" bark="text"/>
</root>