Select Code to Download

use XML::Simple;

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

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

my %hash;

... # fill the hash

my $xml = XMLout (\%hash);