my $DIR = "D:/log_script/Archive";
my @files = glob("$DIR/*.zip");
for my $file (@files) 
{
    next unless -f $file;
    my $age = -M $file;
    if ($age > 1 ) 
	{
		print "$file \n";
        system ( 'rmdir', '/S', '/Q', "$file");
	  
	}
}