#!/usr/bin/perl -w use strict; use warnings; use lib qw{/home/hesco/sb/GD-Graph-Thermometer/lib}; use GD::Graph::Thermometer; my $result = GD::Graph::Thermometer->new({ image_path => '/home/hesco/GD-Thermometer.png', goal => '80000', current => '50000', title => 'Funding the League in 2007 ($)', width => '100', height => '200', # background_color => '', text_color => [0,0,255], # outline_color => '', # mercury_color => '' }); 1;