Program Repair Shop

Classifying files

        chomp(@ARGV = <STDIN>) unless @ARGV;
        undef $/;
        for my $file (@ARGV) {
          unless (open F, "<", $file) {
            warn "$file: $!; skipping\n;  next;
          }
          push @{$files{<F>}}, $file;
        }

I once made someone incredibly angry by proposing this as a serious solution
But it works really well!
- (For small instances of the problem.)