#!/usr/local/bin/perl
    open (FILE, "/Scripts/rotlog");
    my @lines = <FILE>;
    close FILE;
foreach $element (@lines) {
	#  open the directory for reading
opendir(REP, "$element")  || die "Cannot open the directory $element $! ";
open(REMLOG,">/Scripts/dir-removed.log");  # open a file to keep as a log of directories removed.
print REMLOG "Directories removed this date : ",`date`, "\n"; # Place a heading in the file.

#  list the contents of the directory.  These should be directories.
while ($name = readdir(REP)) {
	if (-M $name >= 10) {
	
	print "$name\n" unless($name eq "images"); #  
	print REMLOG "$name\n" unless($name eq "images"); #do not remove the images directory

	`rm -r $name` unless($name eq "images");  # THIS WILL REMOVE THE DIRECTORY AND ALL OF ITS subdirectories and Files. 

}
}

close remlog;
closedir(REP)
}