use XML::Rules;

my $parser =XML::Rules->new(rules =>[], ident => ' ', style => 'filter', reformat_all => 1);

print $parser->ToXML(
chart => {
	caption => 'Monthly Sales Summary',
	subcaption => 'For the year 2006',
	xAxisName => 'Month',
	yAxisName => 'Sales',
	numberPrefix => '$',
	_content => [ "\n  ",
		[ set => {label => 'January', value => '17400'}], "\n  ",
		[ set => {label => 'February', value => '19800'}], "\n  ",
		[ set => {label => 'March', value => '21800'}], "\n  ",
		[ set => {label => 'April', value => '23800'}], "\n  ",
		[ set => {label => 'May', value => '29600'}], "\n  ",
		[ set => {label => 'June', value => '27600'}], "\n  ",
		[ set => {label => 'July', value => '31800'}], "\n  ",
		[ set => {label => 'August', value => '39700'}], "\n  ",
		[ set => {label => 'September', value => '37800'}], "\n  ",
		[ set => {label => 'October', value => '21900'}], "\n  ",
		[ set => {label => 'November', value => '32900'}], "\n  ",
		[ set => {label => 'December', value => '39800'}], "\n",
	]
}
)