open XML, ">some.xml";
print XML $doc1->toString();
close XML;