my $img = DBD::Chart::Plot->new(400, 500);

$img->setOptions (
    horizMargin => 75,
    vertMargin => 100,
    title => 'Visual Analysis',
    yLog => 1,
);

my @years = (1994 .. 2003);
my @lows = (1..10);
my @highs = (21..30);

unless ($img->setPoints(\@years, \@lows, \@highs, 'black')) {
    die $img->error;
}

$r->content_type('image/jpeg');
$m->clear_buffer;
$m->out($img->plot('jpeg'));
$m->abort(OK);