Select Code to Download

#!/usr/bin/perl
use strict;
...
$lu{$key}{children}</tag$lu{$key}{tagid}>
PARENT
}

<tag1>
  <tag1_1>ABC</tag1_1>
...
  <tag3_1>LMN</tag3_1>
  <tag3_2>14</tag3_2>
</tag3>