my $graph = new GD::Graph::histogram(4000000,6000000);
$graph -> set(
x_label => 'Location',
y_label => 'Count',
title => 'Sample Histogram',
x_labels_vertical => 1,
bar_spacing => 0,
shadow_depth => 1,
shadowclr => 'dred',
transparent => 0,
)
or warn $graph -> error;
my $gd = $graph -> plot (\@arrayofinterest) or die $graph->error;
open (IMG, '>histo.png') or die $!;
binmode IMG;
print IMG $gd -> png;