my $dno = Dirnode["", undef];