sub Get_FileList{
	@files=();
	@todel=();
	$logger->info(Carp::longmess("TRACE1"));
	find (sub {
			$logger->debug("Reached $File::Find::name");
			$logger->info(Carp::longmess("TRACE2"));
			push @files,$File::Find::name if (-f $File::Find::name and /\.*$/ and stat($File::Find::name)->mtime > $lastepoch);
			push @todel,$File::Find::name if (-d $File::Find::name);}, $indir);
	$logger->info(Carp::longmess("TRACE3"));
	$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.");
	}