my $te2= tkinit->Scrolled( q/TextUndo/,-scrollbars => 'osw',

                           -background => 'white',

                          -font =>'normal',

                          -wrap => 'none',)->pack; 
$te2>Load( "$distrib" ); MainLoop;