Select Code to Download

foreach my $file (@files){
   ...
...
   move(...)  or die("...");
   ...
}

foreach my $file (@files){
   ...
...
   move(...)  or do { warn("..."); next };
   ...
}

foreach my $file (@files){
   if (!eval {
...
      die("Error processing file $file: $@");
   }
}

sub process_file {
   my ($file) = @_;
...
      die("Error processing file $file: $@");
   }
}