Hi, File::Remove is use to remove the directory eventhough if the directory contains files.

 use File::Remove qw(remove);
 
 remove \1, ("c:\\test\\0521823730\\");
[download]

I think, it helps you.