Select Code to Download

<message>
  <org>
    <cn>Some org-or-other</cn>
...
    <ln>Califia</ln>
    </contact>
</message>

@files = glob "*.xml";

undef $/;
...
    open FILE, ">$file";
    print FILE;
}