use Time::HiRes qw(sleep);
use Tk;
use Tk::Text;
use Tk::Scrollbar;

#================================ Variablen ===========================================================
$trigger = 0;

################################# TK-Abschnitt ########################################################
#================================ Hauptfenster ========================================================
$HF = new MainWindow ();
$HF->geometry('430x350');

#================================ Text-Frame ==========================================================
$Frame1 = $HF -> Frame(-width => 427, -height => 220,-borderwidth => 3, -relief => groove, -bg => black);
$Frame1->place(-x=> 2, -y=> 19);

$Textframe = $Frame1->Scrolled(Text, -wrap,none, -scrollbars => 'se', -height => 12, -width => 55, 
-bg => black, -fg => white)->pack(-expand => 'yes', -fill => 'both', -side => 'left');

#================================ Buttons =============================================================
$BtnStart = $HF->Button(-text=>"START",
			-command => sub {$trigger = 0;erstell_daten();},
			-borderwidth => 2,-relief => raised,-width => 14,
			-font=>"Century 10");
$BtnStart->place(-x=> 2, -y=>260);

$BtnStop = $HF->Button(	-text=>"STOP",
			-command => sub {$trigger = 1;},
			-borderwidth => 2,-relief => raised,-width => 14,
			-font=>"Century 10");
$BtnStop->place(-x=> 140, -y=> 260);

$BtnQuit = $HF->Button(	-text=>"Quit",
			-command => sub{exit;},-width => 14, 
			-borderwidth => 2,-relief => raised,
			-font=>"Century 10");
$BtnQuit->place(-x=> 280, -y=> 260);

MainLoop();

################################# Ende TK-Abschnitt ###################################################

sub erstell_daten ()
{
	 while(1)
	 {
		  if($trigger eq 1){return}
		  sleep 1;		
		  $zaehler++;
	  	  $Textframe->insert("end", "\n$zaehler");
		  $HF->update();
	 }
}