#!/usr/local/bin/perl use GD::Graph::pie; my @data = (['A','O','S','I'],[3,16,12,47]); my $mygraph = GD::Graph::pie->new(200, 200); my $myimage = $mygraph->plot(\@data)->png; print "Content-type: image/png\n\n"; print <Current Stats

end_html print $myimage; print < end_html