Help for this page

Select Code to Download

Select or download this

<AvailableBatch>
  <Date>08/31/2004</Date>
...
    <Time>18:38:01</Time>
  </Available>
</AvailableBatch>

Select or download this

use XML::XPath;

...
} else {
  print "The file $file didn't have any 'zip' elements in it!\n";
}