use GD;
use GD::Graph::lines;

my $graph = GD::Graph::lines->new(400, 300);
$graph->set_x_label_font('arial',12);
$graph->set_y_label_font('arial',12);
$graph->set_x_axis_font('arial',12);
$graph->set_y_axis_font('arial',12);
$graph->set_values_font('arial',12);
$graph->set_title_font('arial',12);
$graph->set_legend_font('arial',12);

my  @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) ]
  );

$graph->set( 
	x_label           => 'X Label',
	y_label           => 'Y label',
	title             => 'Some simple graph',
	y_max_value       => 8,
	y_tick_number     => 8,
	y_label_skip      => 2 
) or die $graph->error;

my $gd = $graph->plot(\@data) or die $graph->error;