for i in $(perl -E 'say for @INC'); do find $i -type d -perm 700 -exec chmod 755 {} \;;done