Select Code to Download

use Tree ();

...
foreach (@roots) {
   ...
}

die("Invalid data: Multiple roots\n")
   if @roots > 1;
...
my $root = $roots[0];

...