修改XML节点求助

贴段我的Code：
#!/usr/bin/perl -w
use strict;
use XML::XPath;
use XML::XPath::XMLParser;

my $xp = XML::XPath->new(filename => 'Config.xml');
if(my $nodes = $xp->findnodes('/config/data_attr/activesw'))
{
        foreach my $node(@{$nodes})
        {
                foreach my $delnode ($node->getChildNodes())
                {
                        $node->removeChild($delnode);
                }
                my $newnode = XML::XPath::Node::Text->new('30');
                $node->appendChild($newnode);
        }       
}
目的是设置'/config/data_attr/activesw' path下文本节点的值为30。
程序运行没问题，但是执行完毕后xml文件没有变化。

因为我的XML文件可能比较大，而且需要经常做修改/查询的操作，所以用XML::Simple Dump到内存的方式不太合适。网上查了N久，谁可以给个修改XML 节点的小例子，谢谢！