たぶんとんでもない大ポカか勘違いだと思うんですが、
一晩延々悩み続けてるので、誰かｻｸｯと蒙を開いてくれると嬉しいです。

これ、ディレクトリ階層動いた途端にopenに失敗するんですけど
なんででしょう？

use File::Find;

finddepth(\&wanted, '.');
exit;

sub wanted {
    my $name = $File::Find::name;
    
    print $name, "\n";
    open(IN, $name) or die;
    close(IN);
    
#    open(IN, "./test/hoge.h") or die;    # これは動く
#    close(IN);
}

% tree.pl
./tree.pl
./test/hoge.h
Died at tree.pl line 10.