#!/usr/local/bin/perl #use strict; use GD; use GD::GRAPH::Data; use Chart; @data = (    ["1st","2nd","3rd","4th","5th",&qu ot;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 = Chart->new(400, 300); $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  ); my $gd = $my_graph->plot(\@data); ...