Add grand total detected Threat

defacement_check.pl

@@ -36,6 +36,7 @@ foreach $file (@files)
 {
   my @urls;
   my $url;
+  my $somme_total_found = 0;
   open(TXT, '<', $file) or die $!;
   while(<TXT>){
     my $url = $_;
@@ -61,13 +62,15 @@ foreach $file (@files)
     # Results
     foreach (uniq(@found)) {
       $total_found++;
-      print "\033[33m" . $total_found . "\t\t" . $_ . "\n";
+      print "\033[33m[" . $total_found . "]\t\t" . $_ . "\n";
     }
     if ($total_found == 0) {
-      print "\033[32m" . $total_found . "\t\t=> " . $survey. "\n";
+      print "\033[32m[" . $total_found . "]\t\t=> " . $survey. "\n";
     } else {
-      print "\033[31m" . $total_found . "\t\t=> " . $survey. "\n";
+      print "\033[31mTREATH [" . $total_found . "]\t=> " . $survey. "\n";
     }
+    my $somme_total_found = $somme_total_found + $total_found;
   }
   close(TXT);
+  print "\033[36mTotal TREATH detected \t\t=> [" . $somme_total_found . "]\n\n";
 }