use strict;
use warnings;

use Chart::Gnuplot;

my @x = (1..5);
my @y = map { rand() } @x;

my $dataSet = Chart::Gnuplot::DataSet->new(
    xdata => \@x,
    ydata => \@y,
    title => "Plotting a line from Perl arrays",
    style => "linespoints",
);
# 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",
    terminal => 'dumb',
);

# Plot the data set on the chart
$chart->plot2d($dataSet);