#!/usr/bin/perl use XML::Simple; use Data::Dumper;

@arr = [ {'country'=>'england','capital'=>'london'},{'country'=>'norway','capital'=>'oslo'},{'country'=>'india','capital'=>'new delhi'} ];

create object

my $xml = new XML::Simple (NoAttr=>1,RootName=>'data'); my $data = $xml->XMLout(@arr); #print Dumper($data); print ($data);

open (FNS,"> D:PerlDemoff.xml"); print FNS ($data); close (FNS);

################################################

my $conf = XMLin("D:PerlDemoparse.xml");

print "Program n $conf->{'name'} $conf->{'author'} $conf->{'mail'}n";

my $i = 0; while( $conf->{'log'}->[$i] ) { print "@ $conf->{'log'}->[$i]->{'version'} at " . "$conf->{'log'}->[$i]->{'date'} : " . "$conf->{'log'}->[$i]->{'change'}n"; $i ++; }