Select Code to Download

#!/usr/bin/env perl 
use strict;
...
$totalfails += $counts{Status}{$_} for grep {$_ > 1} keys %{$counts{St
+atus}};

print "Total failures: $totalfails\n";