Select Code to Download

for my $next (@ARGV){
  opendir(PWD, "$next") or die "$next: $!";
...

  print join("\n", @files), "\n";
}

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