Help for this page

Select Code to Download

Select or download this

use XML::Simple;
use Data::Dumper;
my $hash= {
...
my $xs = new XML::Simple( );
my $xml = $xs->XMLout($hash, NoAttr => 1, RootName=>undef, KeyAttr=>{I
+tem1=>'name'} );
print Dumper $xml;