if($search !=1)
{
	GenerateTestFileList();
	print "	\n*********************************\n";
	print "*	".localtime(time)."	*\n";
	print "	DATABASE.TXT WAS NOT FOUND \n";
	print "	\n*********************************\n\n";
	print "Generating database.txt for Processing.....";
	for($timer = 0; $timer <= 100000000; $timer++)
	{
	    if ($timer == 100000000)
	    {
		open(DBASE, $path."database.txt") || die ("File does not exist, $!\n");
		while(<DBASE>)
		{
		   #print ("TIMER is: $timer\n");
	           chomp;
		   print (LIST "\nTIME: ".localtime(time)."\n");
		   print (LIST "$_\n\n");
		   open (XFILE, $_) || die ("Can\'t open[$_], $!\n");
		   while(<XFILE>)
		   {
			chomp;
			print (LIST "$_\n");
		   }close XFILE;
		} close LIST;
	}
  }							
}