Sounds like GD's bar graph would work. Search groups.google and google for examples.
Here is a little starter script, mailling it to yourself is a different problem.
#!/usr/bin/perl
use GD::Graph::bars;
@A = qw(-5 -4 -3 -2 -1 0 1 2 3 4 5 );
@B = qw(-6 -4 -2 0 2 4 6);
@C = qw(1 2 3 4 5);
@D = qw(4 5 6 7);
@E = qw(-2 -4 -6 0 2 4 6 8);
@datacolors = qw(blue green cyan pink yellow);
my @data = ([@A],[@B],[@C],[@D],[@E]);
my $graph = GD::Graph::bars->new(600,400);
$graph->set(
transparent => '0',
x_label => 'A',
y_label => 'B',
title => 'A for B',
dclrs => [ @datacolors ]
);
open(IMG, ">$0.png");
binmode IMG;
my $gd = $graph->plot(\@data);
print IMG $gd->png;
close IMG;
