Select Code to Download

for my $next (@ARGV) {    
   opendir(PWD, "$next") and do {
...
      print join("\n", @files), "\n";    
   }
}

foreach my $next (@ARGV) {    
   if (opendir(PWD, "$next")) {
...
      print join("\n", @files), "\n";    
   }
}