#!/usr/bin/perl
package Ari::Graph;

use strict;
use GD::Graph::hbars;
use GD:: Graph::bars;
my @data = (['bob','carol','alice], [5.55.6,7]);

my $graph = new GD::Graph::hbars(400,425);

$graph->set(long_ticks=>1, x_label_skip=> 2)
or warn "Error";
$graph->plot(\@data) or die "Graph Error";

print "Content-type:  image/jpeg\n\n";
print $graph->gd->jpeg(200);