open(DBASE, $path."database.txt") || die ("File does not exist, $!\n");
while(<DBASE>)
{
   chomp;
   print (LIST "\nTIME: ".localtime(time)."\n");
   print (LIST "$_\n\n");
   open (XFILE, $_) || die ("Can\'t open[$_], $!\n");
   while(<XFILE>)
   {
	chomp;
	if($_ =~ /\<name\>/../\<\/name\>/)
	{
	   print (LIST "$_\n");
	}
	elsif($_ =~ /\<keywords\>/../\<\/keywords\>/)
	{
	   print (LIST "$_\n");
	}
	elsif($_ =~ /\<description\>/../\<\/description\>/)
	{
	   print (LIST "$_\n");
	}
	elsif($_ =~ /\<results\>/../\<\/results\>/)
	{
	  print (LIST "$_\n");
	}
    }close XFILE;
} close LIST;
close DBASE;