Perl 是否有XML:：Smart的XMLout类型命令？

我有一个xml文件，是用xml:：Simple打开的，现在我想用xml:：Smart打开它

print XMLout( \%clean_xml, NoAttr => 1, RootName => $root_key, XMLDecl => 1 );

那么，有没有一种方法可以在XML:：Smart中打印出来呢

print XMLout( \%clean_xml, NoAttr => 1, RootName => $root_key, XMLDecl => 1 );

感谢播客：

##创建空XML对象：
my$XML=XML:：Smart->new（）；
##将服务器添加到列表中：
$XML->{server}={
os=>“Linux”，
类型=>'mandrake'，
版本=>8.9，
地址=>'192.168.3.201'，
} ;
##现在的数据是：
## 
##或者直接保存：
$XML->save（'newfile.XML'）；