use GD::Graph::lines;  
@data = (  "1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th",   
1, 2, 5, 6, 3, 1.5, 1, 3, 4,   
sort { $a <=> $b } (1, 2, 5, 6, 3, 1.5, 1, 3, 4)  ); 
my $graph = GD::Graph::lines->new(400,400); 
$graph->set (  
x_label => 'values1',  
y_label => 'values2',  
title => 'Correlate',  
) or die $my_graph->error; 
my $gd = $graph->plot(\@data) or die $my_graph->error; 
open (IMG, '>file.png') or die $!; 
binmode IMG; 
print IMG $gd->png;