in reply to Filesystem checking

Using (stat $dir)[0] is fine. If you're using File::Find, then it may be worth to take a look at the output of find2perl -xdev.