use Chart::Gnuplot::Pie;
# Create the pie chart object
my $chart = Chart::Gnuplot::Pie->new(
output => "pie.png",
title => "Sample Pie");
# Data set
my $dataSet = Chart::Gnuplot::Pie::DataSet->new(
data => [
['Item 1', 7500],
['Item 2', 3500],
['Item 3', 2000],
['Item 4', 4500],
],
);
# Plot a 2D pie chart
$chart->plot2d($dataSet);