I would try using chdir() to get into that directory.

ActivePerl says...

'It‘s probably worth mentioning that if you‘re going to filetest the return values out of a readdir, you‘d better prepend the directory in question. Otherwise, because we didn‘t chdir() there, it would have been testing the wrong file.'