print $doc1->toString();

##</code><code>##

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

##</code><code>##

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