use strict;
use Chart::StackedBars; #   (type is one of: Points, Lines, Bars, LinesPoints, Composite,StackedBars, Mountain, Pie, HorizontalBars, Split, ErrorBars, Pareto, Direction) 
use GD;

my $font = GD::Font->Giant;

my $obj = Chart::StackedBars->new (740,430);

$obj->set ( 	'title' => "Jahresübersicht 2012",
				'legend' => 'none', 
				'y_grid_lines' => 'true',
				'title_font' => $font,
				'precision' => 0, 
				'min_val' => 0,
				'colors' => {'grid_lines' => [192,192,192]}
		);
				
 
@data = ( [ 'Januar', 'Februar', 'März', 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember' ],
            [ 150,  180,  210, 190, 175 ] );

$obj->png ( "chart.png", \@data );