#!/usr/bin/perl
#

use GD::Graph::lines;

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

         $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;
  my ($label, $size) = split;
  $label = "" unless $label =~ /^01/;
  push @{$data[0]}, $label;
  push @{$data[1]}, $size;
}
close D;

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

open(IMG, '>growth.png') or die $!;
         binmode IMG;
         print IMG $gd->png;