#!/usr/bin/perl

use strict;
use warnings;

use GD::Graph;
use GD::Graph::pie;

use MIME::Base64;

my @data = ( 
    ["1st","2nd"],
    [    1,    2],
);

my $graph = new GD::Graph::pie( 120, 120 );

$graph->set( dclrs       => [ qw( #FECECE #FEFECE #FFFFFF ) ],
             start_angle => 90 );

my $gd = $graph->plot(\@data) or die $graph->error;

print '<IMG SRC="data:image/png;base64,', 
      encode_base64($gd->png),
      '" alt="sparkline"/>';