@data = (
    ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"],
    [    1,    2,    5,    6,    3,  1.5,    1,     3,     4]
  );
                                                                                                                                 
my $graph = GD::Graph::points->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
  ) or die $my_graph->error;
                                                                                                                                 
                                                                                                                                 
  my $gd = $graph->plot(\@data) or die $my_graph->error;
  open(IMG, '>file.gif') or die $!;
  binmode IMG;
  print IMG $gd->png;
  close IMG;
  binmode STDOUT;
  print $gd->png;