my $tl_window = $mw->Toplevel(-title=>'Fortschritt',-width=>$w,-height=>$h);
my $frame_text = $tl_window->Frame()
            ->pack(-expand=>1,-fill => 'both');