...
    $te2->insert('end',  "Mean length:\t" . $stat->mean() . "\n");    # append line
    ...
    ...
    # $te2->see('end');    # optionally scroll to the end