Select Code to Download

use DBIx::Simple;
my @items = DBIx::Simple
    -> connect(...)
    -> query('SELECT label, votes FROM polls WHERE poll_id = ?', ...)
    -> list;

my $total = 0;
# Total
...
# Greatest (for width)
my $highest = 0;
$_->[2] > $highest and $highest = $_->[2] for @items;

my $width = 300; # Width for 100%
my $html = '<table>';
...
             '</div></td></tr>';
}
$html .= '</table>';

template_foo($html);