Someone

my $graph = GD::Graph::bars( 400, 300 );
    my @data = (
                [ qw( yes no maybe )],
                [ 'yes', 'no', 'noo' ],
                );

    $graph->set(title=>'stuff', x_label=>'yes', y_label=>'no');
    my $gd_image = $graph->plot( \@data );
    print $q->header(-type=>"image/png");
    binmode STDOUT;
    print $gd_image->png;