$ perl -e 'print "Can read\n" if -r "/home"'
$ perl -e 'print "Can write\n" if -w "/home"'
$ perl -e 'print "Can execute (or cd into if dir)\n" if -x "/home"'