Select Code to Download

print $doc1->toString();

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

  # save
  open my $out, '>', 'out.xml';
...
  $doc->toFH($out);
  # or
  print {$out} $doc->toString();