Select Code to Download

  use Data::Dumper;
  use XML::Simple;
...
    </cd>
  </result>

  $VAR1 = {
    'cd' => [
...
      }
    ]
  };