Select Code to Download

#build the tree
my $root = Tree::DAG_Node->new;
$root->attributes({
...
    $root->address($location)->add_daughter($node)
      if defined $root->address($location);
}

         0-255 (root)
          /       \
  100-200(joe)  220-255(bob)

         0-255 (root)
          /       \
  100-200(joe)  220-255(bob)
      |
  150-200(sue.1)

              0-255 (root)
             /      |     \
...
100-200(joe) 151-220(sue.3)  220-255(bob)
   |                            |
150-200(sue.1)               221-250(sue.4)

               0-255
            (root;256)
...
    |                      |
 150-200                221-250
(sue.1;100)           (sue.4;100)