use Tk;
use strict;

my $mw = MainWindow->new();
my $btnGo = $mw->Button(-text => 'Analyse starten',
			-command => \&analysis_start)->pack();
my $txtLog = $mw->Text()->pack();

MainLoop;

sub analysis_start
{
    $txtLog->insert('1.0', "Analyse gestartet. Erster Teil...");
    analysis_part_1();
    $txtLog->insert('1.0', "Jetzt kommt der zweite Teil...");
    analysis_part_2();
    $txtLog->insert('1.0', "Jetzt kommt der dritte Teil...");
    analysis_part_3();
    $txtLog->insert('1.0', "Fertig!");
}