Select Code to Download

Totals
GIRAFFE         |     2 |     1 |    50%
...
ZEBRA           |     3 |     3 |   100%
----------------------------------------
Total           |    15 |    12 |    80%

#!/usr/bin/perl
use strict;
...
   unless ($total{'count'} == 0);
print '-'x40,"\n";
printf  $fmt, 'Total', $total{'count'}, $total{'limit'}, $pc;