Select Code to Download

<?xml version="1.0" encoding="iso-8859-1"?>
  <xml>
...
  <phone_public>1</phone_public>
  <smoking></smoking>
</offer>

use XML::Simple;
my $content = get(xml.file);
my $response = XMLin($content);