Help for this page
<root> ... </start_element> </root>
use strict; use warnings; ... print $FH1 "\n</root>\n"; print $FH2 "\n</root>\n";