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