sub CompareTrees
{
   @_ == 4 ||
     die "CompareTrees($srcPath,$destPath,\%srcTree,\%destTree)";
   my ($sourcePath,$destPath,$sourceTree, $destTree) = @_;