$cureq .= '<?xml version="1.0" encoding="latin1"?>'."\n";
$cureq .= # lots of other xml stuff
open (XML, ">$xmlfile") or return("Could not open $xmlfile");
print $cureq;
close XML or return("Could not close $xmlfile");

##</code><code>##

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