Select Code to Download

use strict;
use XML::Generator;
...
    )
);
print RPT "$xml";

use strict;
use XML::Generator;
...
        })
});
print NEWRPT "$newxml";