如何在perl中格式化从XML::LibXML创建的xml

cpan XML::LibXML

use XML::LibXML;

# 创建XML文档对象
my $xml = XML::LibXML->new();

# 创建根节点
my $root = $xml->createElement("root");

# 创建子节点
my $child1 = $xml->createElement("child1");
my $child2 = $xml->createElement("child2");

# 将子节点添加到根节点
$root->appendChild($child1);
$root->appendChild($child2);

# 创建XML文档
my $doc = $xml->createDocument();
$doc->setDocumentElement($root);

# 格式化XML
$doc->setEncoding('UTF-8');
$doc->setStandalone(1);
$doc->setVersion('1.0');
$doc->toFile("formatted_xml.xml", 1);