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);