use Chart::Gnuplot;
my @counts = (10,11,20,5,13,19);
my @labels = ('a'..'f');
my $dataSet = Chart::Gnuplot::DataSet->new(
xdata => \@labels,
ydata => \@counts,
title => "Histogram",
style => "histograms",
);
# Create chart object and specify the properties of the chart
my $chart = Chart::Gnuplot->new(
title => "Simple testing",
xlabel => "My x-axis label",
ylabel => "My y-axis label",
# this dumbs an ASCII histogram to console
#terminal => 'dumb',
# this plots it as a PNG
output => 'x.png',
terminal => 'png',
);
# Plot the data set on the chart
$chart->plot2d($dataSet);
bw, bliako |