#!/usr/bin/perl -w
use strict;
use Chart::Plot;
 
my $img = Chart::Plot->new(600,400);

my @xdata = (1..30);
my @ydata = qw{
            10  1   -1  22  33  1   6   7   4   8
            9  34  112 -2  -12 33  22  33  1   6
            7  22  33  1   6   7   66  -66 0   1 };

$img->setData (\@xdata, \@ydata, 'Point Dashedline Red');
 
$img->setGraphOptions ('horGraphOffset' => 75,
                       'vertGraphOffset' => 100,
                       'title' => 'Chady\'s XP Change for June',
                       'horAxisLabel' => 'Days',
                       'vertAxisLabel' => 'XP Change' );
print $img->draw();