#!/bin/perl -w
use strict;
use XML::Simple;
use XML::Dumper;

my $struct= { toto => [1,2,3],
              tata => "duh",
              tutu => { tutu_toto => 1, tutu_tata => 2 },
             };

my $out= XMLout( $struct); 
print "XML::Simple: $out\n";

my $dump = new XML::Dumper;
print "XML::Dumper: ", $dump->pl2xml( $struct);