1use strict;
2use GD::Graph::histogram;
3
4my $data = [1,5,7,8,9,10,11,3,3,5,5,5,7,2,2];
5
6my $graph = new GD::Graph::histogram(400,600);
7
8$graph->set(
9                x_label         => 'X Label',
10                y_label         => 'Count',
11                title           => 'A Simple Count Histogram Chart',
12                x_labels_vertical => 1,
13                bar_spacing     => 0,
14                shadow_depth    => 1,
15                shadowclr       => 'dred',
16                transparent     => 0,
17        )
18        or warn $graph->error;
19
20my $gd = $graph->plot($data) or die $graph->error;
21
22open(IMG, '>file.png') or die $!;
23binmode IMG;
24print IMG $gd->png;
25