Select Code to Download

use XML::Parser;
use Data::Dumper;
...
<BAR/>
</FOO>
</FILE>

$VAR1 = [
          'FILE'
...
$VAR1 = [
          'BAR'
        ];