my $mygraph = GD::Graph::lines->new(); $mygraph->set( x_label => 'Log_Date', y_label => 'Open P1-P2 Bugs', title => 'DEIMOS Data', ); #my @data = (['Fall 01', 'Spr 01', 'Fall 02', 'Spr 02' ], # [80, 90, 85, 75], # [76, 55, 75, 95], # [66, 58, 92, 83]); #print $cgi->end_table; #print 'Content-Type: image/png\n\n'; my @data = (\@log_date, \@deimos_open_bugs); my $myimage = $mygraph->plot(\@data) or die $mygraph->error;