Select Code to Download

use strict;
use warnings;
...
     print "</$k>\n";
  }
}

<ABC>
<DEF>
<value>GHI</value>
</DEF>
</ABC>