Select Code to Download

print " FILEXML <Structures>";
#print "<?xml  version="1.0" encoding="ISO-8859-1"?>";

while( @data = $sth->fetchrow_array() ) 
{
...
    print FILEXML "<Title>$data[1]</Title>";
    ...
}