Select Code to Download

use strict;
use Tcl::Tk;
...
#   $lab->configure(-text=>'new text here...');

Tcl::Tk::MainLoop;

use strict;
use Tcl::Tk;
...
$mw->update;

$interp->MainLoop;