#!/usr/bin/perl -w

use GD::Graph::bars;
use CGI;

@data = ([qw(Jan Feb Mar Apr May Jun)],
	 [qw(1 2 3 4 5 6)]);

my $cgi = new CGI;
my $g = new GD::Graph::bars;

print $cgi->header(-type => 'image/png');
$g->set(
	x_label => 'Time',
	y_label => 'Wookies',
	title => 'El Grapho Simplo',
	show_values => \@data
       );

my $graph = $g->plot(\@data);
print $graph->png;