+
+
+
+print "<tr><td>Total </td>";
+
+$ssum=0;
+foreach $year ($year_min..$year_max) {
+ $sum = 0;
+ foreach $cat (keys %count) {
+ if(defined($count{$cat}{$year})) {
+ $sum+=$count{$cat}{$year};
+ }
+ }
+ $ssum+=$sum;
+ print "<td>$sum</td> ";
+}
+print "<td>$ssum</td> ";
+print "</tr>\n";
+
+