Tk::TextUndo inherits the methods from the Tk::Text widget, so you can use ->insert() to add text to the widget:

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