Select Code to Download

<contacts>
  <entry>
...
    <zip>910</zip>
  </entry>
</contacts>

#!/usr/bin/perl
use XML::XPath;
...
  local $" = "\n";
  print "I found these names:\n@names\n";
}