my $graph = $q->img({-src=>"blank.gif", -alt=>"$percentage\%"}); my $graph_table = $q->table({-width=>'100%'}, $q->Tr([ $q->td({-height=>10, -width=>"${percent_label}\%"}, [$graph]) . $q->td({-height=>10, -width=>(100-$percentage).'%'}, [$graph]) ]));