## 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;}