($r,$w,$x) = (-r $path, -w _, -x _);
print "Access: read $r, write $w, execute (search dir) $x\n";