Help for this page
perl -E"system q[for /d %d in (scale-*) do @rd /q /s %d]"
perl -MFile::Path -MFile::Spec -wE"File::Path::remove_tree(glob(File:: +Spec->catdir('.','scale-').'*'));"