my $outputframe = $main->Scrolled('Text')->pack(-side => 'left', -expand => 1, -fill => 'both');
tie (*OUTPUT, 'Tk::Text',$outputframe);