use CGI ':standard';
use GD::Graph::bars;
use strict;
 
# The data, monthly values
my @data = (["Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug",
             "Sep", "Oct", "Nov", "Dec"],
            [23, 5, 2, 20, 11, 33, 7, 31, 77, 18, 65, 52]);
# Create the canvas, then set labels and title
my $mygraph = GD::Graph::bars->new(500, 300);
$mygraph->set(
    x_label     => 'Month',
    y_label     => 'Number of Hits',
    title       => 'Number of Hits in Each Month in 2002',
) or warn $mygraph->error;
# Plot the monthly data
my $myimage = $mygraph->plot(\@data) or die $mygraph->error;
# Output as PNG file
open(IMG, ">output.png") or die $myimage->error;
binmode IMG;
print IMG $myimage->png;
 

dXNlIENHSSAnOnN0YW5kYXJkJzsKdXNlIEdEOjpHcmFwaDo6YmFyczsKdXNlIHN0cmljdDsKCiMgVGhlIGRhdGEsIG1vbnRobHkgdmFsdWVzCm15IEBkYXRhID0gKFsiSmFuIiwgIkZlYiIsICJNYXIiLCAiQXByIiwgIk1heSIsICJKdW4iLCAiSnVsIiwgIkF1ZyIsCiAgICAgICAgICAgICAiU2VwIiwgIk9jdCIsICJOb3YiLCAiRGVjIl0sCiAgICAgICAgICAgIFsyMywgNSwgMiwgMjAsIDExLCAzMywgNywgMzEsIDc3LCAxOCwgNjUsIDUyXSk7CiMgQ3JlYXRlIHRoZSBjYW52YXMsIHRoZW4gc2V0IGxhYmVscyBhbmQgdGl0bGUKbXkgJG15Z3JhcGggPSBHRDo6R3JhcGg6OmJhcnMtPm5ldyg1MDAsIDMwMCk7CiRteWdyYXBoLT5zZXQoCiAgICB4X2xhYmVsICAgICA9PiAnTW9udGgnLAogICAgeV9sYWJlbCAgICAgPT4gJ051bWJlciBvZiBIaXRzJywKICAgIHRpdGxlICAgICAgID0+ICdOdW1iZXIgb2YgSGl0cyBpbiBFYWNoIE1vbnRoIGluIDIwMDInLAopIG9yIHdhcm4gJG15Z3JhcGgtPmVycm9yOwojIFBsb3QgdGhlIG1vbnRobHkgZGF0YQpteSAkbXlpbWFnZSA9ICRteWdyYXBoLT5wbG90KFxAZGF0YSkgb3IgZGllICRteWdyYXBoLT5lcnJvcjsKIyBPdXRwdXQgYXMgUE5HIGZpbGUKb3BlbihJTUcsICI+b3V0cHV0LnBuZyIpIG9yIGRpZSAkbXlpbWFnZS0+ZXJyb3I7CmJpbm1vZGUgSU1HOwpwcmludCBJTUcgJG15aW1hZ2UtPnBuZzsK