This is of course the gist but if you want it to compile :o) and look right (ie height of bars), perhaps you might:
my $results = {
'Category A' => 140,
'Category B' => 210
};
# Start your HTML here..... Then....
print qq(<table border="0">\n);
foreach my $key (keys(%$results)) {
print <<" HTML";
<br>
<tr>
<td>
$key
</td>
<td>
<img src="http://perlmonks.org/images/bluebox.gif" height=15 wid
+th="$results->{$key}">
</td>
<td>
$results->{$key} width units
</td>
</tr>
HTML
}
print "</table>\n";
cheers
tachyon
s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print