## BAD CODE !! use strict; use warnings; use Tk; my $number = 1; my $mw = MainWindow->new; my $label = $mw->Label(-textvariable =>\$number)->pack(); # sleep 5; MainLoop; while (1){ $number++; $label->update; sleep 1;}