Select Code to Download

use DBI;
# do DBI things, like connecting to the database, statement
...

my $chart = GD::Graph::bars->new();
my $gd = $chart->plot($data);

use GD::Graph::Data;
use GD::Graph::bars;
...
while (@row = $sth->fetchrow_array) {
    $data->add_point(@row);
}