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