Select Code to Download

foreach my $files(@files) {
  $c++;  
...


}

for (@files) {
  $c++;  
...
     print "$c - Found and to be deleted: $_\n";
  }
}