sub Get_FileList{
	@files=();
	@todel=();
	find(sub {push @files,$File::Find::name if (-f $File::Find::name and /\.*$/ and stat($File::Find::name)->mtime > $lastepoch);}, $indir);
	find(sub {push @todel,$File::Find::name if (-d $File::Find::name); }, $indir);	 
	$lastepoch = time; #Update last execution time for the next run
	$logger->info("New execution time update: $lastepoch.");
	$proccount = scalar(@files);
	$logger->info("Found $proccount new files since last run.");
	}