#!/usr/bin/perl -w
use warnings;
use strict;
use File::Find;
use File::Path;
my $dir='D:\\TestDelete\Test';
print("$dir");
find \&unwanted,$dir;
sub unwanted {
if(-d $dir)
{
if ( ( -M $_ ) >2 &&(-M $_)<4)
{
 print ("file exist");
 rmtree($_) or die "could not rmdir '$File::Find::name' $!";
 print("deleted");
  
}
}
  
}