sub launch_progress {        
        my $main_window = MainWindow->new;
        my $tk_progressbar = $main_window->ProgressBar(
              -width => 20,
              -height => 300,
              -from => 0,
              -to => 100,
              )->pack( -fill=>"x", -pady => 24, -padx => 8 );

        $main_window->after(1000, sub{goto ret;});
        
        MainLoop();

        ret:
        
        return $tk_progressbar;
}