my @data = ([@alldates],
            [@allScores], 
            [@trendline] 
	    );

my $mygraph = GD::Graph::lines->new(600, 300);
$mygraph->set(
    x_label     => 'Assessments',
    y_label     => 'Score',
    title       => 'Progress Monitoring Report for '.$student,
    y_max_value => 100,
    y_min_value => 0,
    show_values => 1,
	# Show the grid
    long_ticks  => 1,
    
    #line_types  => [1, 2, 4],
    line_types  => [1],
    # Set the thickness of line
    line_width  => 4,
    # Set colors for datasets
    #dclrs       => ['blue', 'green', 'red'],
    dclrs       => ['blue','red'],
) or warn $mygraph->error;

$mygraph->set_legend_font(GD::gdMediumBoldFont);

my $myimage = $mygraph->plot(\@data) or die $mygraph->error;

print "Content-type: image/png\n\n";
print $myimage->png;