perl -E"system q[for /d %d in (scale-*) do @rd /q /s %d]"