#!/usr/local/bin/perl
use CGI qw(:all);
use Chart::Bars;

my $obj = Chart::Bars->new ( 800, 600 );

$obj->add_pt ('Mops', 11, 44, 88, 111);

print header('image/png');
$obj->png (*STDOUT);