Program Repair Shop

Diagnostics

     297  print STDERR "jsjv: find is generating the list of files\n"
     298      if ($verbose1);

This pattern appears several times throughout the program
We should consider using a subroutine to see if it makes the code easier to read
Something like this:

        verbose "jsjv: find is generating the list of files\n";

        sub verbose {
          return unless $opt_v;
          print STDERR @_;
        }