Some perl scripts that change permissions with slightly less overhead.