Select Code to Download

<?xml version="1.0" encoding="utf-8"?>
<volume device="cdrom" date="2002-02-10" start="d:/" name="Test"> 
...
    </directory>
  </directory>
</volume>

our (@stack, @directory, %file);  
our ($treeId, $treeRef, $treeRoot, $lastXMLElement); 
...
  ($treeRef, $treeId) = @_; 
  $treeRoot = $treeId; 
}