#!perl

use strict;
use warnings;
use Tk;
my $top = MainWindow->new();
my $txt = $top->Text->pack;
for my $t ('a' .. 'z') {
	$txt->insert('end', $t x 40 . "\n");
}
my $lbltxt = "wowowowowowowowowowowowowowo";
my $label = $top->Label(-textvariable => \$lbltxt)->pack;
my $button = $top->Button(-text => "Die", -command => sub { exit; })->pack;
$top->update;
#$top->Busy(-recurse => 1); # use
$top->Busy; # drop
sleep 8;
$lbltxt = "updatedupdated";
#$label->update; # use
$label->idletasks; # drop
sleep 8;
$txt->delete('1.0','end');
$top->Unbusy;
Tk::MainLoop;