use XML::Simple;

my $ref = XMLin([<xml file or string>] [, <options>]);

my $xml = XMLout($hashref [, <options>]);

##</code><code>##

my %hash;

... # fill the hash

my $xml = XMLout (\%hash);