count me in.

Update: yeah right... got beaten up before I even got home to my linux machine to access GD... :p

Update 2: Ok so here is what I was working on, but I didn't post after I saw crazyinsomniac's results.

#!/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();
[download]

results can be seen here.

Update 3: following crazy's suggestion here's a simple mix of bars and lines.. but no 3D bars yet :-/

#!/usr/bin/perl -w

use strict;
use Chart::Composite;

my $img = Chart::Composite->new(600,400);
my @data = 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->add_dataset (1..30);
$img->add_dataset (@data);
$img->add_dataset (@data);

$img->set ('legend' => 'none',
     'title' => 'Chady\'s XP Plot',
     'brush_size' => 2,
     'pt_size' => 10,
     'composite_info' => [ ['Bars', [1]],
                    ['LinesPoints', [2]] ],
    'y_label' => 'XP Change',
    'colors' => {'y_label' => [0,0,255],  
    'dataset0' => [0,153,153], 'dataset1' => [0,0,127]
        }
    );

$img->png("chart.png");
[download]