#!/usr/bin/perl -w
use strict;
use File::Find;
use File::stat;
use Time::localtime;
my $NodeName = Win32::NodeName();
my $path = ("C:\\TEMP\\");
my $LogDir = ("C:\\LOGS\\");     # log folder

#date and time
&TimeStamp;
sub TimeStamp {

	my $tm = localtime;
	my $Date = sprintf ("%02d_%02d_%04d", $tm->mon+1, $tm->mday, $tm->year+1900);
	
	my $Log = $Date."_".$NodeName.".txt";
	open(LOG,">>$LogDir\\$Log") || die "TCleaner.pl can't open $Log for writing: $!";
    find (\&unwanted, $path);
}

sub unwanted {
	# Change the age to desired days past to delete
	my $age = 1;
	my $atime = int(-A _);
	my $mod_time = int(-M _);
 		
	if (!(/^\./) && $mod_time > $age && $atime > $age) {
		print LOG "going to delete these!  $_ modified days old -->$mod_time\n";
		#system ("del $_ /Q");
		#unlink($_);
	}else{
		print LOG "KEEPING $_  access days old ---> $atime\n";
	}
} # END