Programming on the shoulders of Giants:

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);
[download]

                                                                      
+        
                                   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
[download]

bw, bliako