opendir(CacheDir,$Cache) || die "Couldn't open the directory $Cache: $!\n";
				@filelist=grep { /[0-9]{5}/ } readdir(CacheDir);
				closedir(CacheDir);
				$z=0;
				while($filelist[$z]){
					if ($filelist[$z] =~ /[0][0][0-1][0-9][0-9]/){
					$bigfilelist[$z]=int($filelist[$z]+100000);
					}
					else{
						$bigfilelist[$z]=$filelist[$z];
					}
					++$z;
				}
								
				@sortlist=sort {$b <=> $a} @bigfilelist;
				
				$i=0;				
				while($sortlist[$i]){
					$filename=int($sortlist[$i]);
					if($filename > 100000){
						$filename=int($filename-100000);
					}
					else{
						$filename=int($filename);
					}
					$filename=sprintf("%05d", $filename);
					++$i;
			
					if ($filename)
					{
					  open(ITEM,"$Cache/$filename");