use File::Find;
use Cwd;

sub fixfile {
  my ($file) = @_;
  print "Reading $file\n";
  open IN, $file or die $!;
  $count++, $bytes += length $junk while $junk = <IN>;
  close IN;
}

find(sub {
  $File::Find::prune = 1, return if /^\(.*\)$/;
  /\.(pl|pm|mod|xmod)$/i
    or $_ eq 'platform_convert'
    or return;
  fixfile($_);
}, (@ARGV ? @ARGV : ($^O eq 'MacOS' ? ':' :  '.')));

print "Done. $count lines, $bytes bytes\n";
