http://www.perlmonks.org?node_id=61758


in reply to Perhaps
in thread Recursive directory scanning

This is true, and that would break the script :(

Remember that $item has been prefixed by the directory, so we want to filter out elements like foo/bar/. and fi/fo/fum/..

Better would be to extract the file name and compare it to current/parent directory in a portable fashion. this will work on *nix or windows. I have no idea what it might do on a MAC or on VMS.