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

  my @data = (
  ["Jan-01","Feb-01","Mar-01", "Apr-01","May-01","Jun-01","Jul-01","Aug-01","Sep-01"],
  [21,25,33,39,49,48,40,45,15]
  	    );

  my $graph = new GD::Graph::bars;

  $graph->set(
      x_label         => 'Month',
      y_label         => 'Revenue ($1,000s)',
      title           => 'Monthly Online Sales for 2001',
      bar_spacing     => 10
  )
  or warn $graph->error;

  $graph->plot(\@data) or die $graph->error;

  open(GRAPH,">graph1.jpg") || die "Cannot open graph1.jpg: $!\n";
  print GRAPH $graph->gd->jpeg(100);