Select Code to Download

    my (@data,$totalvotes,@legend,$i);
    while (my @r = $sth->fetchrow) {
...
            $_ = int(($_ / $totalvotes) * 100).'%';
        }
    }

    my $graph = GD::Graph::hbars->new(300,70*$#{$data[0]});
    $graph->set (
...
    $graph->set_legend(@legend);

    my $gd = $graph->plot(\@data) or warn $graph->error;