如何在 perl 中使用 XML：:P arser 将 XML 写回？

问：

我需要修改一个XML文档并将其转储回去。我能够在 perl 中使用 XML：:P arser 执行此操作，但是我找不到将其转储回去的方法。找不到太多关于写回去的东西。

愚蠢的实现之一

use warnings;
use strict;
use XML::Parser;
use Data::Dumper;

sub char_handler
{
        my ($parser, $text) = @_;
        $text = #DO SOMETHING HERE WITH THE TEXT
}

my ($file) = @ARGV;
open(FILE,$file);
$xml=<FILE>;
my $parser = new XML::Parser( Style=>"Tree",
                              Handler => {
                              Char => \&char_handler
                });
my $doc = $parser->parse($xml);

print Data::Dumper->Dump([$doc]);

dumps the XML.