#!/usr/local/bin/perl -w
use strict; #ALWAYS!!!!

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 $myimage;
exit;

##</code><code>##

<img src="your/script/here.cgi?key=value(if needed)">

##</code><code>##

<img src=$myimage>