12345678910
#!/usr/local/bin/perluse 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);