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