利用perl在windows上提取文件夹里的文件，并将文件夹删掉。