#!/usr/bin/perl -w
use strict;
use GD::Graph::bars;

my @data = ( [qw(a b c d e f g)], [1,2,3,4,5,6,7] );

my $graph = GD::Graph::bars->new(200, 200);
$graph->set(
   transparent       => '0',
   bgclr             => 'lgray',
   boxclr            => 'white',
   fgclr             => 'white',
   cycle_clrs        => '1',
   x_label           => 'X Label',
   y_label           => 'Y label',
);


my $gd = $graph->plot(\@data);

binmode STDOUT;

#print "Content-type: image/png\n\n";
print $gd->png();
[download]