use Tk;
        $mw = MainWindow->new;
        $mw->title("$title");
        $f = $mw->Frame->pack(-side => 'bottom', -fill => 'x');
        $f->Button(-text=>"Schliessen", -command => sub { exit; } )->
                pack(-side => 'top');
        $t = $mw->Scrolled("Text", -foreground => "$tcolor", -background => "$color",
                -width => "$w", -height => "$h", -scrollbars=>'e' )
                ->pack (-side,'bottom', -fill => 'both', -expand => 1);
        $mw->update;
        $mw->grabGlobal;