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);