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 );