if (opendir (KDBASE, $path))
{
	@keywords = sort grep{$_ ne '.' and $_ ne '..'} readdir (KDBASE);
		for ($kdbase = 0; $kdbase <= $#keywords; $kdbase++)
		{			
			if ( @keywords[$kdbase] !~ /database\.txt|keywords_database\.txt/)
			{
								next;
				
			}
			elsif (@keywords[$kdbase] =~ /keywords_database\.txt/)
			{
				$keyword_database_present = 1;
				print "Keyword database found : @keywords[$kdbase]\n";
			}
			elsif(@keywords[$kdbase] =~ /database\.txt/)
			{
				$testfilelist_database_present = 1;
				print "Test file list database found : @keywords[$kdbase]\n";
			}			
			else
			{	
				print "No database found yet : @keywords[$kdbase]\n";
				#Generate all the necessary files.
GenerateTestFileList();
			}
			
		}
		
	}