my @r = $t->roots;
print qq[Roots:\n];
print qq[$_\t] foreach @r;