Select Code to Download

<chart caption='Monthly Sales Summary' subcaption='For the year 2006' 
+xAxisName='Month' yAxisName='Sales' numberPrefix='$'>
    <set label='January' value='17400' />
...
    <set label='November' value='32900' />
    <set label='December' value='39800' />
</chart>

    my %xml_hash;
    print $xml->chart({caption => 'Chart Title', subcaption => 'Subtit
+le', xAxisName => 'xAxis', yAxisName => 'yAxis'});
...
    }
    my $xmlOut = XMLout(\%xml_hash, NoAttr => 1, RootName => 'chart');
    print $xmlOut;

<chart caption="Chart Title"
       xAxisName="xAxis"
...
..
...
</chart>

print $xml->chart({caption => 'Chart Title', subcaption => 'Subtitle',
+ xAxisName => 'xAxis', yAxisName => 'yAxis'},
foreach my $key ( sort keys %hash) {
    my ( $date, $cust ) = split( /:/, $key );
    $xml->data({set => },['set'], $hash{$key}[2]);
});