$cureq .= '<?xml version="1.0" encoding="UTF-8"?>'."\n";
open (XML, '>:encoding(UTF-8)', $xmlfile) or return("Could not open $xmlfile");