>>777
それも除外しています。色々と試しているんですが、subで
print $File::Find::name,"\n";

と追加して、

c:\home>test.pl test

とやると、
test

とのみ出力して、open INのところで落ちてしまいます。
testは同じ階層にあるフォルダで、中に処理対象のファイルを2つ入れています。
findの書き方が悪いのか？とも思っているんですが…