#! perl -slw
use strict;
use GD::Graph::bars;

my @d1 = (
    [ "2010/03/29 14:00:00", "2010/04/29 14:00:00" ],
    [ 13, 15 ],
    [ 20, 21 ],
);
my $g1 = GD::Graph::bars->new( 1000, 800 );
my $img1 = $g1->plot( \@d1 );

open PNG, '>:raw', "$0.png" or die $!;
print PNG $img1->png;
close PNG;
system "$0.png";