Select Code to Download

use strict;
use warnings;
...
   $tree->flatten();
   $tree->visit(\&printer); print("\n");
}

+ Label1
  = Node1
...
  + Label3
    = Node4
    = Node5