#!/usr/bin/perl
# Time-stamp: "2005-08-19 01:54:00 ADT"   sburke@cpan.org
# desc{   prints the name of any filenames that aren't nice MSWindows names   }

use File::Find;
@ARGV = '.' unless @ARGV;
find(sub {
  print $File::Find::name, "\n"
    if m/([^\x20-\x7E])/
    or /[\/\\\:\*\?\"\<\>\|]/
    or length($_) > 228;
  }, @ARGV
);