package themometer;

use strict;
use warnings;
use GD::Graph::bars;

$GD::Graph::Error::Debug = '5';
my $g = GD::Graph::bars->new(80,180) or die GD::Graph->error;
my @data = (['Your Contributions'],[55]);

$g->set(
     y_label           => 'Progress toward our Goal (%)',
     y_max_value       => '100',
     y_tick_number     => '10',
     y_label_skip      => '2'
 ) or die $g->error;

my $gd = $g->plot(\@data) or die $g->error;

unlink 'fundraising_progress_graph.gif';
open(IMG, '>fundraising_progress_graph.gif') or die $!;
  binmode IMG;
  print IMG $gd->gif;
close IMG;

1;