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

##</code><code>##

perl -MFile::Path -MFile::Spec -wE"File::Path::remove_tree(glob(File::Spec->catdir('.','scale-').'*'));"