#!/usr/local/bin/perl5-new -w use strict; use GD::Graph::bars; use CGI qw (param header); 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 => 'Anand', y_label => 'Praveen', title => 'Testing the Graph display', bar_spacing => 10 ) or warn $graph->error; open PNG, ">/kbase/anand/search/sw/cposupport/search/graph2.png"; binmode PNG; print PNG $graph->plot(\@data)->png; close PNG; print header; print "\n"; print "

"; print "";