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

##</code><code>##

                                                                              
                                   Simple testing                              
                                                                               
     0.8 +-----------------------------------------------------------------+   
         |       +        +       +      *A*      +        +       +       |   
     0.7 |-+                      Plot***g a**ine from Perl arrays ***A***-|   
         |                        ****        *                           *|   
     0.6 |-+                   ***             *                        **-|   
         |                  ***                 *                      *   |   
     0.5 |-+              A*                     *                    *  +-|   
         |              **                        **                 *     |   
     0.4 |-+          **                            *              **    +-|   
         |          **                               *            *        |   
         |        **                                  *          *         |   
     0.3 |-+    **                                     *        *        +-|   
         |    **                                        **     *           |   
     0.2 |-+**                                            *  **          +-|   
         |**                                                *              |   
     0.1 |-+                                               A             +-|   
         |       +        +       +       +       +        +       +       |   
       0 +-----------------------------------------------------------------+   
         1      1.5       2      2.5      3      3.5       4      4.5      5   
                                   My x-axis label