if (open(DBASE, $path."database.txt"))
				{
					while(<DBASE>)
					{
						chomp;
						if ($_ =~ /\.xml/)
						{
							if (open(XFILE, $_))
							{
								while (<XFILE>)
								{
									chomp;
									if ($_ =~ /\<name\>|\<\/name\>/)
									{
										print (LIST "$_\n");
									}
								}
							}							
						}
					}
					
				}