#!/usr/bin/perl
#

use GD::Graph::lines;

 $graph = GD::Graph::lines->new(400, 300);

         $graph->set(
             x_label           => 'Month',
             y_label           => 'Users',
             title             => 'LJ Growth',
#             y_max_value       => 8,
#             y_tick_number     => 8,
#             y_label_skip      => 2
         );

my @data;
open (D, "3mo");
while (<D>) {
  chomp;
  push @data, [ split ];
}
close D;

          my $gd = $my_graph->plot(\@data);