Select Code to Download

use warnings;
use strict;
...
$desc->appendText($str);
$req->appendChild($desc);
$doc->toFile('out.xml',1);