#!/usr/bin/perl

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

my @data = (
    ["Mar","Apr","May","Jun","Jul"],
    [5,2,10,6,4],
    [100,80,50,60,20]
  );

my $graph = GD::Graph::lines->new(800, 600);

 $graph->set(
      title             => 'Test Graph',
      two_axes          => 'true',
      use_axis          => [1,2],
      x_label           => 'Month',
      y1_label           => 'Units',
      y1_max_value       => 15,
      y1_min_value     => 0,
      y_tick_number     => [15,15], #second element get ignored
      y_label_skip      => 0,
      y2_label           => 'Profit',
      y2_max_value       => 150,
      y2_min_value     => 0,
      #y2_tick_number     => 15, #throws error
      #y2_label_skip      => 0 #throws error
  ) or die $graph->error;

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

open(IMG, '>/var/www/html/file.gif') or die $!;
  binmode IMG;
  print IMG $gd->gif;
  close IMG;

exit;