stop using print function

run  perl -MTk -e " my $te = tkinit->Scrolled( q/TextUndo/ )->pack; $te->Load( q/filename/ ); MainLoop "

substitute  q/filename/ with a real filename, and when you paste the contents of the program into your real program, use $open like you have in your program, and thats it

Run the widget demo, it also shows zentara way of using Tk::Text insert method

Oh, there is no need , but you could use open/print if you really want,but, it helps to know perl Perl:TK - standard output to text widget