#!/usr/bin/perl -w

# apt-get install libchart-gnuplot-perl

use Chart::Gnuplot::Pie;

my $chart = Chart::Gnuplot::Pie->new(
    output => "member-stat-3d.png",
);

my $dataSet = Chart::Gnuplot::Pie::DataSet->new(
    data => [
	['', 113],
	['', 28],
	['', 34],
	['', 2],
    ],
    colors => [
	'#00ffff', '#ffff00', '#ff0000', '#ffffff'
    ],
);

$chart->plot3d($dataSet);

