#================================
#               Variablen
#================================
$ButtontextS    = "Start";
$ButtontextP    = "Pause";
$ButtontextW    = "Weiter";
$torkel         = 1;
$zaehler                     = 0;
$zahl           = 50;
#================================
#               Hauptfenster
#================================
$Hf = new MainWindow (-title => "Test");
$Hf->geometry('400x300');
$Hf->geometry('+10+10');
#================================
#               Anzeige-Frame (bzw. Widget)
#================================
$FrAnzeige      = $Hf->Frame(-borderwidth, 3,-relief, ridge)
->pack();
$Anzeigefenst   = $FrAnzeige->Scrolled(Text,-wrap,none, 
                                        -scrollbars,se,         
                                        -height,14, 
                                        -width,80) 
->pack();
#================================
#               Buttons
#================================
$BtnStart       = $Hf->Button(-text => "Start")
->pack(-side => 'left',-expand => "1", -fill => both);

$BtnQuit        = $Hf->Button(-text => "Abbrechen", -command => [ $Hf => 'destroy'])
->pack(-side => 'left',-expand => "1", -fill => both);
#================================
#               Bindung
#================================
$BtnStart->bind('<Button-1>', 
        sub
        {
            if($torkel eq 1)
            {
                $BtnStart->configure(-text => "$ButtontextP");
                $torkel--;
                start();
            }
            else
            {
                $BtnStart->configure(-text => "$ButtontextW");
                $torkel++;
                stop();
            }

         }
);
#================================
# Tk-Abschlussanweisung
#================================
MainLoop();
#================================
#               Unterprogramm
#================================
sub start 
{
   while ()
   {
        # hier soll irgendein Code ausgeführt werden
        # und der Output soll dann im Anzeigeframe
        # erscheinen
        # z.B.

        $zahl = $zahl + $zaehler++;
        print "\nZahl: $zahl"; 
        sleep 1;
   }
}

sub stop 
{
        # Hier soll der Output zeitweise angehalten
        # werden können
}

while ($data->{running}) {}