my %xml_hash;
	print $xml->chart({caption => 'Chart Title', subcaption => 'Subtitle', xAxisName => 'xAxis', yAxisName => 'yAxis'});
	while ( my $row = $sp->fetchrow_hashref ) {
		push @{ $xml_hash{set} }, $row;
	}
	my $xmlOut = XMLout(\%xml_hash, NoAttr => 1, RootName => 'chart');
	print $xmlOut;