Select Code to Download

   foreach $node (keys(%current)) {
      if ($current{$node} eq "created") {
         foreach $node2 (keys(%prior)) {
            while ($node2 =~ m/\/.+(\S)/) {

   for $node (keys(%current)) {
      if ($current{$node} eq "created") {
...
         ++$Deleted;
      }
    }

   for $node (keys(%current)) {
      defined($prior{$node}) or ++$Created;
...
   for $node (keys(%prior)) {
      defined($current{$node}) or ++$Deleted;
   }