# CheckFileNames - find unusual (and possibly problematic) file names
#
# prints:  MyDisk:FileTree:foo_bar
#          ...

use File::Find;

find(\&lookForWeirdNames, "MyDisk:FileTree");  # scan tree

sub lookForWeirdNames {
  print  "$File::Find::name\n" if ($_ =~ m/[^A-Za-z0-9\.]/);