my $graph = GD::Graph::mixed->new($cgi->param('width'),$cgi->param('height'));
    my @collumn_data ("this is the first result label and its long", "this is the second etc..." );
    my @data = (
	\@collumn_count,
	\@collumn_data,
	\@compare_data,
	\@compare_data2,
    );
    $graph->set( 
        types => [qw(bars lines lines)],
        ...
        x_labels_vertical =>1,
    );
    my $image = $graph->plot(\@data);
    $image->interlaced(undef);
    print $cgi->header(-type	=>"image/png"	, -expires => "now");
    binmode STDOUT;
    print $image->png;