Select Code to Download

use XML::Simple;

...
if($monk->{vals}->{val}->{FOO}) {
  print $monk->{say}, "\n";
}

use XML::XPath;
use XML::XPath::XMLParser;
...
   my $say = $xp->findvalue('./say', $node);
   print "$say\n";
}