#!/usr/local/bin/perl -w # Change above line to point to your perl binary use CGI ':standard'; use GD::Graph::pie; use strict; # Both the arrays should same number of entries. my @data = (['Project', 'HW1', 'HW2', 'HW3', 'MidTerm', 'Final'], [25, 6, 7, 2, 25, 35]); my $mygraph = GD::Graph::pie->new(300, 300); $mygraph->set( title => 'Grading Policy for COP5555 course', '3d' => 1, ) or warn $mygraph->error; $mygraph->set_value_font(GD::gdMediumBoldFont); my $myimage = $mygraph->plot(\@data) or die $mygraph->error; print "Content-type: image/png\n\n"; print $myimage->png;