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