opendir(DIR, $PWD) or return warn("$0: $! [$PWD]");
...